Собираем URL

[FaTaL]

Может лучше приведёте исходную строку и что надо из неё получить. Глядишь и идеи разные появятся попроще.

[Аватар]

Какой in в юникодной версии Дельфи для национальных кодировок?

В множестве AnsiChar -> каждый символ строки тоже перевести в AnsiChar если только это вообще возможно. В данном примере возможно, чего там у ТС не известно

procedure TForm1.Button1Click(Sender: TObject);
const Simbols = ['0'..'9','A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var s: String;
    sa: AnsiString;
    i: Integer;
begin
  s:='АБВРСТ0123ёЁъхюыПФЖ';
  sa:=s;
  for i:=1  to Length(sa) do begin
    Memo1.Lines.Add(Format('%s - %d',[String(sa[i]),Integer(sa[i] in Simbols)]));
  end;
end;

URL в какой кодировке?

[Shouldercannon]

Сообщение от Аватар

В множестве AnsiChar -> каждый символ строки тоже перевести в AnsiChar если только это вообще возможно. В данном примере возможно, чего там у ТС не известно

procedure TForm1.Button1Click(Sender: TObject);
const Simbols = ['0'..'9','A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var s: String;
    sa: AnsiString;
    i: Integer;
begin
  s:='АБВРСТ0123ёЁъхюыПФЖ';
  sa:=s;
  for i:=1  to Length(sa) do begin
    Memo1.Lines.Add(Format('%s - %d',[String(sa[i]),Integer(sa[i] in Simbols)]));
  end;
end;

URL в какой кодировке?

В стандартной кодировке передаю без всяких конвертация.

PHP код:

1 - 1
2 - 1
3 - 1
ё - 1
Ё - 1
ъ - 1
х - 1
ю - 1
ы - 1
П - 1
Ф - 1
Ж - 1 


[Аватар]

Ну если в видимой области мемо чего-то не видно не значит, что его нет

А - 1
Б - 1
В - 1
Р - 1
С - 1
Т - 1
0 - 1
1 - 1
2 - 1
3 - 1
ё - 1
Ё - 1
ъ - 1
х - 1
ю - 1
ы - 1
П - 1
Ф - 1
Ж - 1

[Shouldercannon]

function GetUrl(txt: String): String;
const
  Simbols  = '!"#$%&''()*+,-./:;<=>?@[]^_`{|}~0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZабвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var
  I: Integer;
  Passed: Boolean;
begin
  Result := '';

  for I := 1 to Length(txt) do
  begin
    Passed := False;
    if not Passed then if Simbols .Contains(txt[I]) then Passed := True;
    if Passed then Result := Result + txt[I] else Break;
  end;
end;