izdvoj prvi substring koji se zavrsava charom blanko - ' ' - ili koji vec simbol koristis za razdvajanje potataka u stringu koji ti glumi slog
znaci nesto kao
n:=pos(' ', UcitaniStringIzFajla);
naziv:=copy(UcitaniStringIzFajla, 1, n-1);
lista.items.add(naziv);
gde su uvedene deklaracije
var
n: integer;
naziv, UcitaniStringIzFajla: string;
litsta: TListBox; (kako se vec zvase...)
Ok?
10 BEGIN
20 HOME_SWEET_HOME
30 GOTO 20