Die Datei direkt in einen string laden > natürlich die
Ansi-
Unicode-Umwandlung nicht vergessen, da die Datei bestimmt mit
ANSI gefüllt ist und dein Delphi
Unicode nutzt.
(oder in einen AnsiString laden und dann Delphi es umwandeln lassen)
Und dann diesen string direkt an Memo1.Text übergeben.
Dateien zusammenfügen, indem alles Dateien hintereinander in den String geladen werden.
Delphi-Quellcode:
if FileExists(Path) then
begin
AssignFile(F,Path);
Reset(F);
while not eof(F) do
begin
Readln(F,tmp);
Form1.Memo1.Lines.Add(tmp);
end;
CloseFile(F);
end;
im Vergleich zu Diesem ... was von dem Folgenden dauert denn wie lange?
Delphi-Quellcode:
if FileExists(Path) then
begin
AssignFile(F,Path);
// hier noch den Buffer vergrößen
Reset(F);
while not eof(F) do
begin
Readln(F,tmp);
//Form1.Memo1.Lines.Add(tmp);
end;
CloseFile(F);
end;
Delphi-Quellcode:
if FileExists(Path) then
begin
AssignFile(F,Path);
// hier noch den Buffer vergrößen
Reset(F);
tmp := 'hier irgendwas mit der durchschnittlichen Länge einer Zeile reinmachen';
for i := 1 to Anzahl_der_Zeilen do
//while not eof(F) do
//begin
// Readln(F,tmp);
Form1.Memo1.Lines.Add(tmp);
//end;
CloseFile(F);
end;