задача на вывод данных из текста.

[ST1174]

Нужно пропарсить тескст и вывести данные в лэйблы , вот пример :

PHP код:

memo2.Lines.LoadFromFile('save.txt');
n1:=memo2.Lines.Text;
energy:=inttostr(pos('energy=""',n1));
energy:=label1.Caption;
lvl:=inttostr(pos('lvl=""',n1));
lvl:=label2.Caption;
hp:=inttostr(pos('hp=""',n1));
hp:=label3.Caption;
name:=inttostr(pos('name=""',n1));
name:=label4.Caption; 


Я объявил hp, lvl , name , energy - string , а n1 - integer. Подскажите пожалуйста как сделать чтобы выводило нормальные данные , а то выводит 0 всегда.Писал на Delphi 7.

[Аватар]

А что будет выводиться, если в Caption-ы лэйбов ничего не присваивается?

[Базиля]

ээээээээ

n1 - integer

n1:=memo2.Lines.Text;

[ST1174]

Я новичок и не совсем понимаю как это сделать и как что присвоить , это я написал для ПРИМЕРА ,а не сам код. Сам код сделать , чтобы выводило нормально у меня сделать не получилось...

n1:='save.txt';

Можно и так сделать.. Но я всё равно не очень понимаю как сделать то что я хочу..