Hallo zusammen,
ich würde gerne eine umfangreichere Datei mit Messdaten im Textformat zeilenweise einlesen. Aufgrund des Umfangs möchte ich es nicht so gerne mit TStringList.LoadFromFile machen, weil dann alles auf einmal im Hauptspeicher landet.
Das zeilenweise Einlesen mit den veralteten Routinen AssignFile/Reset/ReadLn/CloseFile geht schon, aber ich würde es lieber mit Streams machen. Dazu habe ich die TStream-Klasse um eine ReadLn-Funktion ergänzt. So hab ich's versucht:
Delphi-Quellcode:
type
TStreamHelper = class helper for TStream
public
function ReadString: string;
end;
function TStreamHelper.ReadLine: string;
var
S: String;
Ch: Char;
begin
S := '';
while Read(Ch, 1) = 1 do
begin
S := S + Ch;
if RightStr(S, Length(sLineBreak)) = sLineBreak then
begin
S := LeftStr(S, Length(S) - Length(sLineBreak));
Break;
end;
end;
Result := S;
end;
Funktioniert auch, ist aber leider quälend langsam. Was kann ich tun, um die Laufzeit zu optimieren? Oder gibt es einen anderen Ansatz ohne die veralteten Routinen zu verwenden?
Dirk