Edit

[Editor]

function HTTPTran(St : String) : String;
var i : Integer;
begin
Result:='';
for i:=1 to length(St) do
if St[i] in ['a'..'z','A'..'Z','0','1'..'9'] then
Result:=Result+St[i]
else if St[i]='' then
Result:=Result+'+'
else
Result:=Result+'%'+IntToHex(Byte(St[i]),2);
end;
как зделать чтобы данная функция обратовало то что в Edit1

[and-rusa]

Зоздай свою глобальну переменную и используй ее, как буфер: перед вызовом функции записывай данные из Edit в свою переменную, после возврата - обратно

[Editor]

пример приведи я паскаль знаю плохо

[Ring0Sn]

and-rusa, нафига чета создавать то?
HTTPTran(St : String) - передан. параметр и так копиуреться
Editor,

Edit1.Text  := HTTPTran(Edit1.Text);

[and-rusa]

Создай свою глобальную переменную, например:
Var
MyVar: string;
А при каждом вызове твое функции, сохрани значение в нее, например:
MyVar:=Edit1.Test;
Str1:=HTTPTran(Str2);
Edit1.Test:=MyVar;
В самой функции присваиваешь какие хочешь значния переменной MyVar - они будут заноситься в Edit.
Это конечно далеко не самый лучший способ, но наверно самый простенький

[Editor]

[DCC Error] Unit1.pas(60): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter'
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Editor]

Ring0Sn зделал так '+ Edit4.Text := HTTPTran(Edit4.Text) +'
[DCC Error] Unit1.pas(60): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter'
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Ring0Sn]

Editor, полн код тогда выложи а то не ясно что ты там делаеш
например так то все ок
function HTTPTran(St : String) : String;
var i : Integer;
begin
Result:='';
for i:=1 to length(St) do
if St[i] in ['a'..'z','A'..'Z','0','1'..'9'] then
Result:=Result+St[i]
else if St[i]='' then
Result:=Result+'+'
else
Result:=Result+'%'+IntToHex(Byte(St[i]),2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := HTTPTran(Edit1.Text);
end;

[Editor]

короче этой функцией нада обработать текст из edit и вывести его примерно так '+ Edit4.Text +'

[Editor]

Всё зделал...)Ступил я там...