Delimiter Textfile

[DeddyH]

Kaki, da fehlt aber eine Kleinigkeit

Delphi-Quellcode:

for i := 0 to Datei.Count - 1 do
  if Odd(i) then
    Memo2.Lines.Add(Datei[i])
  else
    Memo1.Lines.Add(Datei[i]);

Oder auch

Delphi-Quellcode:

var Memo: TMemo;
...
for i := 0 to Datei.Count - 1 do
  begin
    if Odd(i) then
      Memo := Memo2
    else
      Memo := Memo1;
    Memo.Lines.Add(Datei[i]);
  end;

Ungetestet