Главная страница
    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.032 c
14-1084798394
Kerk
2004-05-17 16:53
2004.06.06
Запуздырить иконку в трей


8-1080544421
WAlgo
2004-03-29 11:13
2004.06.06
Выбор конкретной области изображения


3-1084562937
Ertong
2004-05-14 23:28
2004.06.06
select max from someDB


4-1083320755
svetlana
2004-04-30 14:25
2004.06.06
Хэндл строки состояния чужого окна


1-1084882106
Sha
2004-05-18 16:08
2004.06.06
Перестановка битов в байте - результаты





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский