Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
1-1085119264
Виталя
2004-05-21 10:01
2004.06.06
Подскажите, пожалуйста UML - оболочку, с поддержкой Delphi


4-1082796857
GanibalLector
2004-04-24 12:54
2004.06.06
"Пук" вместо "Пуск" :)


3-1084513992
Вопрошающий
2004-05-14 09:53
2004.06.06
Копирование данных


1-1085375644
ПсихЪ_клон
2004-05-24 09:14
2004.06.06
Шаблоны классов


14-1084653299
Мыш
2004-05-16 00:34
2004.06.06
Как найти свое сообщение?