Txt Datei mit mehreren spalte in Listbox einladen...

[M-O-D]

Morschen,

erstmal zum separator der List. Ich würde hier generell ein Semikolon oder ein Komma empfehlen, da es ja auch vorkommen kann, das Du einen String der durch leerzeichen getrennt ist in eine Zelle einlesen willst. Also zB:

Spalte1 | Spalte2 | Spalte3
Zwei Worte | Hallo | Noch was

Wenn Du die Textdatei mit Semikolon erstellen kannst, wäre daher besser. So jetzt erstmal zum verarbeiten. Ich mache das meistens mit 2 Stringlisten, die eine läd die Textdatei, die andere bekommt in Ihre Eigenschaft DelimitedText einfach jede einzelne Zeile aus der 1. Liste übergeben und zerlegt sie somit. Und ich würde es in eine Listview schreiben(Viewstyle vsReport) da eine Listbox dafür nicht sehr geeignet ist!

ungefähr so:

Delphi-Quellcode:

procedure Dateilesen(Sender: TObject);
var
   lst,lst2   : tStringlist;
   i,x,m   : integer;
   item   : TListItem;
begin

   lst      := TStringlist.Create;
   lst2   := TStringlist.Create;

   try
      

           //LV leeren wenn nötig
           LV.Clear;
           LV.Columns.Clear;

          lst.LoadFromFile(dlgOpen.FileName);
           //Trennzeichen festlegen
           lst2.Delimiter   := ';';


           //Spalten in der Listview erzeugen
           for i:=0 to lst.Count -1 do begin
              LV.Columns.Add;

               //Spaltenbezeichnung
               LV.Column[i].Caption := 'Spalte '+IntToStr(i+1);

               //Spaltenbreite frei nach wahl, einfach probieren
               LV.Column[i].Width := length(LV.Column[i].Caption)*14;

           end;

           //jetzt noch die Einträge in die Spalten
           for i:=0 to lst.Count-1 do begin
               //die zu zerlegende Zeile in die 2. Liste übergeben
               //Lst2 zerlegt den Text, jetzt kann man mit lst2[integer] auf die 
               //einzelnen strings zugreifen
               lst2.DelimitedText   := lst[i];

               item   := LV.Items.Add;

               with LV do begin
                   //Die erste Spalte der LV füllen
                  item.Caption   := lst2[0];
                   //danach alle restlichen
                   for x:=1 to lst.Count-1 do
                      item.SubItems.Add(lst2[x]);

               end;
               application.ProcessMessages;
           end;

      
   finally
      lst.Free;
       lst2.free;
   end;
end;