Bestimmte Strings aus einer Datei in StringGrid einlesen

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var sl: TStringlist; 
Teilstring: String; 
datum,p1,p2,vf: String; 
i : Integer; 

begin 
  sl:= TStringlist.Create; 
     try 
        if Opendialog1.execute then 
           begin 
             sl.LoadFromFile(Opendialog1.Filename); 
      
             for i:= 0 to sl.Count-1 do 
               begin 
                 Teilstring := sl[1]; 
                 label1.caption := Teilstring; 
                 datum := copy(Teilstring,1,17); 
                 p1:=copy(teilstring,19,4);
                 p2:=copy(teilstring,24,5);
                 vf:=copy(teilstrig,37,16);
                 showMessage(datum+'  '+p1+'  '+p2+'  '+vf);
               end; 

           end; 
     except 
           ShowMessage ('Super!'); 
     end; 
     sl.Free; 
end;

Zitat:

12345678901234567890123456789012345678901234567890 12
23:13:24.44122112 PP:2 PP2:3 xD LOL VLC/VXX = 150/77
24:13:25.78945612 Pi:3 PP2:4 xD LOL VLY/VYX = 150/77
25:15:27.78985612 Pu:3 PP4:5 xD LOL VLF/FYX = 150/77

Wenn die Zeile immer gleich lang ist, dann brauchst Du nicht zwingend
mit pos arbeiten. Du kannst die Bereiche die Dich intessieren auch direkt im copy angeben.

Grüße
Klaus

[edit] zu spät :o( [/edit]