Wczytywanie do listview

[tomek126]

Witam, dopiero uczę się programować w delphi więc proszę o zrozumienie. Chciałbym wczytać dane z pliku tekstowego do listview, napisałem coś takiego, ale to nie działa. Prosiłbym o poprawienie kodu. Z góry dziękuję.

 

procedure TForm6.FormCreate(Sender: TObject);
var
Item: TListItem;
t: integer;
imie,nazwisko,kodimiasto,ulica,nrdomu,nrmieszkania,tele,email,ilbil,kod,wplata: array[0..100000] of string;
x,z: integer;
y: string;
plik: textfile;begin
      	listview1.Clear;
      	t:=0;
      	Assignfile(plik,'c:/zmienna.txt');
      	Reset(plik);
      	readln(plik, y);
      	Closefile(plik);
      	x:=strtoint(y);       	z:=x;
      	x:=0;
      	repeat
      	x:=x+1;
      	Assignfile(plik,'c:/osoby.txt');
      	Reset(plik);
      	readln(plik, imie[x]);
      	readln(plik, nazwisko[x]);
      	readln(plik, kodimiasto[x]);
      	readln(plik, ulica[x]);
      	readln(plik, nrdomu[x]);
      	readln(plik, nrmieszkania[x]);
      	readln(plik, tele[x]);
      	readln(plik, email[x]);
      	readln(plik, ilbil[x]);
      	readln(plik, kod[x]);
      	readln(plik, wplata[x]);
      	Closefile(plik);

t:=t+1;
Item := ListView1.Items.Add;
Item.Caption := imie[x];
Item.SubItems.Add(nazwisko[x]);
Item.SubItems.Add(kodimiasto[x]);
Item.SubItems.Add(ulica[x]);
Item.SubItems.Add(nrdomu[x]);
Item.SubItems.Add(nrmieszkania[x]);
Item.SubItems.Add(tele[x]);
Item.SubItems.Add(email[x]);
Item.SubItems.Add(ilbil[x]);
Item.SubItems.Add(kod[x]);
Item.SubItems.Add(wplata[x]);
until z=t;
end;

[olesio]

Witam, dopiero uczę się programować w delphi więc proszę o zrozumienie. Chciałbym wczytać dane z pliku tekstowego do listview, napisałem coś takiego, ale to nie działa. Prosiłbym o poprawienie kodu. Z góry dziękuję.

Kod źle sformatowany, poza tym dodajesz elementy do tablicy bez elementu 0, od którego indeksujesz tablicę i nie ma sensu tworzenia tak wielkiej tablicy. Nie chce mi się pisać od zera, ale polecam użyć pliku typowanego coś na kształt tego co stworzyłem kiedyś na bazie programu "Kartoteka" Adama Boducha z serwisu 4programmers.net - przykładowy kod wraz z exekiem i plikiem testowym dołączyłem do tego posta. Przeanalizuj sobie kod tego programu to będziesz wiedział jak to zrobić po swojemu.

kartoteka_14.zip