Цитата:
|
Сообщение от Страдалецъ
Ругается на типы переменных. У вас какого типа переменные s и g?
И вы пробовали мой вариант?
|
Сейчас полностью скопировал ваш вариант, получилось:
Код:
procedure TForm1.FormCreate(Sender: TObject);
var s : String;
var g : string;
begin
s:='<count>3</count>';
if (pos('<count>',s)<>0)and(pos('</count>',s)<>0 ) then
begin
g:=inttostr(copy(s,pos('<count>',s),pos('</count>',s)-pos('<count>',s)));
Edit1.Text := g;
end;
end;
При этом коде компилятор выдает: [DCC Error] Unit1.pas(33): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments
Среда: Delphi 2010
Если убрать функцию IntToStr, то в g пишется '<count>3' (без кавычек).