Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Вниз

Как вызвать процедуру   Найти похожие ветки 

 
Delphin ©   (2004-05-25 16:06) [0]

Есть Код:
.......
implementation

Procedure Trans(var Input,Output:String);
Begin
For I:=1 To Length(Input) Do Begin
S:=Copy(Input,1,1);
For Z:=0 to 65 Do
IF S=RA[z] Then Begin
S:=La[z];
End;
IF Z>=65 Then
Output:=Output+S;
Delete(Input,1,1);
S:=EmptyStr;
End;
End;

{$R *.dfm}
...........
подскажите, как в дальнейшем можно будет выполнить это процедуру, уже просто замучался..
Пол года не писал нечего и вот результат :( просто не могу вспомнить


 
vox   (2004-05-26 13:16) [1]

Вопрос очень неточный, уточни - что и на каком этапе не работает.

Если речь просто о синтаксисе, то процедуры запускаются так:

trans(s1,s2);

здесь s1 и s2 - переменные (!) типа string. Именно переменные, они должны быть где-то объявлены !! Частая ошибка новичков:

trans("строка1",s2) - это компилятор не пропустит.


 
Внук ©   (2004-05-26 13:53) [2]

Если вызов планируется из другого модуля, прототип процедуры надо привести в разделе Interface



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.037 c
14-1085035375
Igorek
2004-05-20 10:42
2004.06.06
Посоветуйте прогу для разговора голосом по телефону через модем


14-1084973432
slaga
2004-05-19 17:30
2004.06.06
как узнать какие значения принемает кнопка на клавиатуре ?


3-1084647141
download
2004-05-15 22:52
2004.06.06
Редактирование БД после сортировки


6-1082103558
Иксик
2004-04-16 12:19
2004.06.06
Html парсер


14-1085240300
Dron
2004-05-22 19:38
2004.06.06
"Windows"





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский