Einzelnen Beitrag anzeigen

Benutzerbild von BrunoT
BrunoT

Registriert seit: 23. Jan 2003
Ort: Sandbeiendorf
360 Beiträge
 
Delphi 8 Professional
 
#6

Re: text datei zerlegen fürs einladen in eine listview

  Alt 7. Jul 2005, 08:16
Hi amg65,

die Strings stehen in dem dyn. Array, welches von explode zurückgegeben wird.

Delphi-Quellcode:
type TSTringdynarray = array of String;

Var
 ar:TSTringdynarray;
 i,Anz_Token:Integer;
 s:string;
Begin
...
  s:='81.41.73.10 80 10.10.2003 09:51:24 Yes NO 00:00:01';
  Anz_Token:=7;
  setlength(arr,Anz_Token);
  ar:=explode(' ',s, Anz_Token);
...
  for i:=0 To Anz_Token-1 do
  memo1.lines.add(ar[i]);
...
//ungetestet


mfg

BrunoT
Holger

EDV- Ende der Vernunft
Meine Calcedit-Kompo
  Mit Zitat antworten Zitat