Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi text datei zerlegen fürs einladen in eine listview (https://www.delphipraxis.net/49201-text-datei-zerlegen-fuers-einladen-eine-listview.html)

agm65 6. Jul 2005 23:43


text datei zerlegen fürs einladen in eine listview
 
nabend leute ....habe mal wieder ein problem :)
habe einen txt file die ich gerne in meinen listview einladen möchte, die text datei sieht aus wie folgt:


81.41.73.10 80 10.10.2003 09:51:24 Yes NO 00:00:01
81.41.73.115 80 10.10.2003 09:51:24 Yes NO 00:00:01


jetzt wollte ich alle angaben in extra listview felder einladen...hat da jemand eine idee ?

thx cu agm65

nailor 6. Jul 2005 23:44

Re: text datei zerlegen fürs einladen in eine listview
 
sicher listview und nicht vielleicht stringgrid oder so?

agm65 6. Jul 2005 23:45

Re: text datei zerlegen fürs einladen in eine listview
 
sollte schon listview sein ..wieso geht das besser mit anderen objekten ?

Luckie 6. Jul 2005 23:45

Re: text datei zerlegen fürs einladen in eine listview
 
explodeexplode und als Trennzeichen das Leerzeichen nehmen, wenn ich das richtig sehe.

agm65 6. Jul 2005 23:48

Re: text datei zerlegen fürs einladen in eine listview
 
werde ich mal testen ! danke

zu dem explode:
also wie komme ich nach dem exploden an meine einzelnen strings ran ?

BrunoT 7. Jul 2005 07:16

Re: text datei zerlegen fürs einladen in eine listview
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz