hi,
ich möchte aus einer datei meine 15zeichen langen strings auslesen, ich habe mir gedacht das ich es mit einer while schleife mache, nur wie? ich dachte an "while bytesread = 15 do...".
Das würde aber heissen das ich das "Read" von TFileStream VOR der schleife schreiben müsste... aber da das read wiederrum nicht in der schleife ist kann damit auch nur 1 durchgang funktionieren oder?
ich hatte das bis jetzt ca so und weiss nich weiter:
Delphi-Quellcode:
procedure TBL.Load(const AFileName: string);
var
Fs: TFileStream;
BytesRead: Integer;
Buffer: array[1..15] of Char;
begin
Fs := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
try
BytesRead := Fs.Read(Buffer, Length(Buffer));
while BytesRead = 15 do...
// hm....
finally
Fs.Free;
end;
end;