Co muszę zmienić, żeby program poprawnie wczytał tekst z notatnika jeśli będzie w takiej wersji?
np.
Jan; Kowalski; 22
Jacek; Nowak; 15
Jak na razie to mi działa jest mam tak zapisane:
Jan
Kowalski
22
procedure DodajZPlikuKolejka(var Pocz : PLista; var Kon : PLista; var Plik : TextFile);
var
I : Integer;
S : String;
Nowy : PLista;
begin
AssignFile(plik,'C:\Users\Desktop\wczytaj.txt');
reset(plik);
while not eof(Plik) do
begin
new(Nowy);
readln(Plik, S);
Nowy^.Dane.Imie:= S;
readln(Plik, S);
Nowy^.Dane.Nazwisko:= S;
readln(Plik, I);
Nowy^.Dane.Wiek:= I;
if (Pocz = nil) then
begin
Pocz := Nowy;
Pocz^.Wsk := nil;
Kon := Pocz;
end else
begin
Kon^.Wsk := Nowy;
Kon := Nowy;
Kon^.Wsk := nil;
end;
end;
CloseFile(plik);
end;