I'm trying to read in a text file (I can send to anyone it's only 2K)
with the following code:
AssignFile(F, sPathAndFileName_);
Reset(F);
Readln(F, sInput);
while (Length(sInput) > 0) do begin
InputLine := TLLine.Create;
InputLine.sLine := sInput;
liBeginPos := Pos('<br>Text: ---(', sInput) + 14;
liEndPos := Pos(')---', sInput);
sDateTime := Copy(InputLine.sLine, liBeginPos, liEndPos - liBeginPos);
strlstLogs.AddObject(sDateTime, InputLine);
Readln(F, sInput);
end;
CloseFile(F);
The problem is that Readln() reads the whole file as one line. When I
load this file into Textpad it show 13 lines. What am I missing?
TIA
Tom
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
