So funktioniert das nicht
. Du lädst den Inhalt der ersten Datei, dann den der zweiten, wobei aber der der ersten Datei gelöscht wird. Du speicherst also nur den Inhalt der zuletzt geladenen Datei.
Du kannst statt das Memo für den zweck zu missbrauchen TStringLists benutzen, dann ist die Lösung ähnlich zu dem, was du versucht hast:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| var
File1, File2: TStringList;
begin
File1 := TStringList.Create;
File2 := TStringList.Create;
File1.AddStrings(File2);
File1.Free;
File2.Free;
end; |
oder so (bei größeren Dateien besser, weil die Dateien nicht komplett geladen werden):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| var
CurrentLine: String;
File1, File2, File3: TextFile;
begin
AssignFile(File1, 'c:\tmp\tst1.txt');
AssignFile(File2, 'c:\tmp\tst2.txt');
AssignFile(File3, 'c:\tmp\tst3.txt');
Reset(File1);
Reset(File2);
Rewrite(File3);
while not EoF(File1) do
begin
ReadLn(File1, CurrentLine);
WriteLn(File3, CurrentLine);
end;
while not EoF(File2) do
begin
ReadLn(File2, CurrentLine);
WriteLn(File3, CurrentLine);
end;
CloseFile(File1);
CloseFile(File2);
CloseFile(File3);
end; |
Narses