TurboPascal. Как сделать процедуру, которая может изменять параметры?

[TwiX]

В дефли - var дописать. В паскале руагется на это...

[Neeter]

В паскале тоже var дописать. Покажите кусок кода, и скажите как ругается.

[TwiX]

procedure add(ch:char; var trg:string);
var
   i, inS:integer;
begin
     inS:=0;
     for i:=1 to length(trg) do
         if ch=trg[i] then
         begin
              inS:=1;
              break;
         end;

     if inS=0 then trg:=trg+ch;
end;

add(char(s[i]), soglEx);

[DCC Error] Project1.dpr(66): E2033 Types of actual and formal var parameters must be identical

soglEx:string[255];

[mihali4]

Project1.dpr(66): E2033 Types of actual and formal var parameters must be identical

Неодинаково объявлены параметры процедуры. Что тут думать-то? Просто нужно быть внимательнее...

[Neeter]

Зачем писать тип string[255]?
Это получается array of char. А нужен простой string.
Длина string'а равна 255 символов, так что зачем тут квадратные скобки вообще не понятно... Уберите их поскорей

[TwiX]

Всем спасибо)
Жалко плюсики не разрешают вам поставить...

[Roof]

Если ты в делфи консоль делаешь, то не прокатит. Без[255] объявляй. Это массив.
А вот компилятор PascalABC съедает без ошибок с [255].

вот пример

program my_proc;
uses crt;

procedure add(ch:char; var trg:string);
begin
 writeln(ch);
end;


var
 s: string;
 i: integer;
 soglEx:string[255];

begin
 i:=2;
 s:= '11111111111';
 add(char(s[i]), soglEx);
 readln;
end.

[mihali4]

Нам "плюсики" - по барабану... Лишь бы таких вопросов стало меньше...