Как вызвать процедуру

← →
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) - это компилятор не пропустит.

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

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