document laden

[Klaus01]

Guten Morgen,

und noch eine Variante:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  liste: TStringList;
  liste2: TStringList;
  Array1: array [0..5] of String;
  Array2: array [0..5] of string;
  i,j:Byte;
begin
   liste := TStringList.create;
   liste2 := TStringlist.create;
   liste2.Delimiter:=':';
   liste.LoadFromFile('d:\test.dat'); //enthält den ganzen Text
   liste2.DelimitedText:=liste.Text;  // enthält pro Zeile einen Teil des Textes
  
   // den Teil kann man sicherlich noch eleganter lösen
   i:=0;
   j:=0;
   while i <= liste2.Count-1 do
     begin
       Array1[j]:=liste2.strings[i];
       Array2[j]:= liste2.strings[i+1];
       j:=j+1;
       i:=i+2;
     end;

   // Ausgabe in ein Memo
   for i:=0 to high(array1) do
     memo1.Lines.add(array1[i]);

   liste.Free;
   liste2.Free;
end;

einen Nachteil hat das Verfahren, in den Texten dürfen keine Leerzeichen enthalten sein.
aaaaa:bbbbb das geht
aa aa:bbbbb das geht in die Hose
Leerzeichen sind in dem Falle durch ein anderes Zeichen zu ersetzen.

Grüße
Klaus