Procedure TfrmStkFileDataInput. LoadFromTxtFile (const AFileName: string;
ARow: TStringList);
Var
Stream: TStream;
The begin
Stream:=TFileStream. Create (AFileName fmShareDenyNone);
Try
ARow. LoadFromStream (Stream);
The finally
Stream. Free;
end;
end;


The HEADER | ITP1.00 | | 332 | | XHKG01 | 20160322-10:42:14. 000 | | 0 3
MD401 | | 00001  晫 T 0 0 0 0 0 0 0 0 0 0 0 0 0 0 | CKH HOLDINGS | 1557332 | | | | | | 100.600 102.000 101.300 100.000 157912384.600 101.300 101.300 101.400 | | 11000 | | 47000 | | 0 10:42:13. 000
MD401|00002|-N5u 0 0 0 0 0 0 0 0 0 0 0 0 |CLP HOLDINGS | 535346 | | | | | | 68.800 69.150 69.100 69.150 36902500.500 69.100 69.050 69.100 | | 12000 | | 35500 |0 |10:41:55.000

Read ' 晫 have 0 x00 behind T

CodePudding user response:

TStringList 0 is over, can put in the TStream 0 replace Spaces, deal with it

CodePudding user response:

No this is 00 problem, "晫" this is what the devil, I think it is the code