Z pliku BookList.txt o wyglądzie
Kod: Zaznacz cały
tytuł1,imie1,nazwisko1
tytuł2,imie2,nazwisko2
tytuł3,imie3,nazwisko3
...
Kod: Zaznacz cały
Book = record
Title: string;
Name: string;
ScName: string;
End;
Problem polega na tym, że nie działa procedura mająca rozdzielić poszczególne słowa z wiersza.Wygląda ona mniej więcej tak:
Kod: Zaznacz cały
procedure ReadBk;
var
zn: char;
znaki: string;
t: tab2; {tablica do której wprowadzam podzielone słowa}
n: integer;
begin
{reset(Bklist);}
writeln('Wczytywanie listy ksiazek.');
repeat
n:=1;
repeat
read(bklist,zn);
if zn<>',' then znaki:=znaki+zn
else
begin
t[n]:=znaki;
znaki:='';
n:=n+1;
end;
until eoln(bklist);
for i:=1 to 3 do
write(t[i], ','); {to jest pętla kontrolna: wlasnie tu widac ze cos nie dziala}
writeln;
{tu przekazuje tablice t do procedury ładującej ją do recordu}
read(bklist);
until eof(bklist);
writeln('Wczytano liste ksiazek!');
end; {ReadBk............................}
Kod: Zaznacz cały
nazwisko3,tytuł1,imie1
nazwisko1,tytuł2,imie2
nazwisko2,tytuł3,imie3
Czy mogę liczyc na pomoc w jakiej kolwiek postaci (podpowiedz, wskazanie błędu, gotowy kod)
Thx in advance :d