Ну нельзя же быть настолько ленивым =)
Чем тебя стандартный TStringList не устраивает?
| Код |
var
URI:TIdUri;
str:TStringList;
procedure ShowContent;
var
i:integer;
begin
for I := 0 to str.Count - 1 do
begin
Memo1.Lines.Add(Format('Параметр %s имеет значние %s',[str.Names[i],str.ValueFromIndex[i]]));
end;
end;
begin
//URI:=TIdURI.Create(Edit1.Text);
URI:=TIdURI.Create('http://www.ya.ru/index.htm?aaa=1&bbb=2');
str:=TStringList.Create;
try
Memo1.Lines.Add(URI.GetFullURI());
ExtractStrings(['&'],[],pchar((Copy(URI.Params,2,length(URI.Params)))),str);
ShowContent;
str.ValueFromIndex[0]:=str.ValueFromIndex[1];
str.ValueFromIndex[1]:='Другое значение';
ShowContent;
finally
str.Free;
URI.Free;
end;
|
|
. Хочется готового