PDA

Просмотр полной версии : [Помогите!] Поиск и вставка


Fizerator
14.01.2011, 18:35
И так дорогие программеры:) Кто может объяснить как сделать чтобы то что я получаю от сервера post запросом а это
speaker1: 34254 speaker2: 68574690 speaker3: 12850957 speaker4: 34906751
При чем при новом пост запросе меняются только цифры и их колличество
И так вот вопрос в чем... Необходимо чтобы при новом пост запросе после получения кода мне к моим переменным присваивались только цифры текст мне не нужен...
т.е. к примеру

l:=34254;
i:=68574690;
s:=12850957;
k:=34906751;

Fizerator
16.01.2011, 01:18
Вопрос снят!!!
Получилось вот что:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
strlist:TStringList;
i:byte;
begin
s:='speaker1: 34254 speaker2: 68574690 speaker3: 12850957 speaker4: 34906751';
s:=StringReplace(s, ': ', '=', [rfReplaceAll]);
s:=StringReplace(s, ' ', #13#10, [rfReplaceAll]);
strList:=TStringList.Create;
strList.Text:=s;
speaker1:=strList.Values['speaker1'];
speaker2:=strList.Values['speaker2'];
speaker3:=strList.Values['speaker3'];
speaker4:=strList.Values['speaker4'];
end;