|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.06.2008, 17:26 | #1 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
Edit
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 |
25.06.2008, 17:44 | #2 |
Новичок
Джуниор
Регистрация: 25.06.2008
Сообщений: 2
|
Зоздай свою глобальну переменную и используй ее, как буфер: перед вызовом функции записывай данные из Edit в свою переменную, после возврата - обратно
|
25.06.2008, 17:55 | #3 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
пример приведи я паскаль знаю плохо
|
25.06.2008, 18:04 | #4 |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 239
|
and-rusa, нафига чета создавать то?
HTTPTran(St : String) - передан. параметр и так копиуреться Editor, Код:
Последний раз редактировалось Ring0Sn; 25.06.2008 в 18:08. |
25.06.2008, 18:11 | #5 |
Новичок
Джуниор
Регистрация: 25.06.2008
Сообщений: 2
|
Создай свою глобальную переменную, например:
Var MyVar: string; А при каждом вызове твое функции, сохрани значение в нее, например: MyVar:=Edit1.Test; Str1:=HTTPTran(Str2); Edit1.Test:=MyVar; В самой функции присваиваешь какие хочешь значния переменной MyVar - они будут заноситься в Edit. Это конечно далеко не самый лучший способ, но наверно самый простенький |
25.06.2008, 18:11 | #6 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
[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' |
25.06.2008, 18:18 | #7 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
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' |
25.06.2008, 19:10 | #8 |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 239
|
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; |
25.06.2008, 19:50 | #9 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
короче этой функцией нада обработать текст из edit и вывести его примерно так '+ Edit4.Text +'
|
25.06.2008, 19:52 | #10 |
Пользователь
Регистрация: 19.04.2008
Сообщений: 52
|
Всё зделал...)Ступил я там...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
edit | moysey | Помощь студентам | 2 | 26.11.2007 18:40 |
Edit! | Abbatik | Помощь студентам | 7 | 25.11.2007 15:39 |
Edit | niva622 | Помощь студентам | 10 | 06.09.2007 17:36 |
Edit | PAVEL315 | Компоненты Delphi | 10 | 14.03.2007 18:58 |