ladowanie danych

Witam,

Mam pewien problem, z ktorym nie moge sobie poradzic.
W pliku tekstowym w jednej lini mam takie dane:

Nazwa ucznia: Heniek=auto=>13-0-13;
Nazwa ucznia: Heniek=jedzenie=>13-1-12;
Nazwa ucznia: Heniek=choroba=>13-3-10;

I terach chcialbym zeby te dane a dokladnie te od znaku '=' czyli np auto 13 0 13
ladwoaly mi sie na forme do labeli tak jak sa zapisane w pliku tekstowym.

Wiem, ze do tego mozna uzyc memo zeby ladowac dane z pliku, i potem robic do za pomoca kopiuj, ustaw za znakiem.. itd.

ale jakos nie moge tego oprogramowac, potrzebuje wasza pomoc !!!

dzieki z gory

Ciężko Cie zrozumieć ale myślę że powinieneś być tym zadowolony :
(ewentualne poprawki wprowadzisz zapewne na własną rękę)

type rekord=record
  nazwa:string[15];
  ocb:string[15];
  jakiesliczby:string;
  end;

 function pomocnicza(str:string):rekord;

 begin

  result.nazwa:=copy(str,pos(': ',str)+2,pos('=',str)-pos(': ',str)-2);

 delete(str,1,pos('=',str));

 result.ocb:=copy(str,1,pos('=>',str)-1);

 delete(str,1,pos('=>',str)+2);

 result.jakiesliczby:=StringReplace(str,'-',' ',[rfreplaceAll]);
 delete(result.jakiesliczby,length(result.jakiesliczby),1);

 end;
function loadfromfile(filename:string):TstringList;
 var fx:textfile; strs:string;help:rekord;
 begin
 result:=TstringList.Create;
 assignfile(fx,filename);
 reset(fx);
 while not eof(fx) do
   begin
   readln(fx,strs);
   help:=pomocnicza(strs);
   result.Add(help.nazwa+' '+help.ocb+' '+help.jakiesliczby);

   end;
 closefile(fx);
 end;

przykład wprowadzenia do memo:

memo1.lines.clear;
memo1.lines:=loadfromfile('D:\dane.txt');