TListView

[HolgerX]

Hmm..

Oder anders:

Delphi-Quellcode:

procedure dateiladen(AListView: TListView; dateiname: string);
var
  
  list: TStringList;
  listItem: TListItem;
  x, ItemCount: Integer;
  a: TStrArray;

begin
       list:=TStringList.Create;
       list.Clear;
       list.LoadFromFile(dateiname);
       itemCount:=list.Count;
// listView1.Items.Clear;
       for x:=0 to itemCount-1 do begin
           Explode(a,';',list.Strings[x]);
           listItem:=AListView.Items.Add;
           listItem.Caption:=a[0];
           listItem.SubItems.Add(a[1]);
           listItem.SubItems.Add(a[2]);
           listItem.SubItems.Add(a[3]);
       end;
  list.free;
end;

procedure TmainFrm.HalleClick(Sender: TObject);
var
  dateiname: string;
begin
       dateiname:='C:\Users\pfad_dateiname';
       dateiladen(ListView1, dateiname);
end;

(Nur so runtergetippt, ohne korrekturen mit Try...)