Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

Передача динамическиго массива в процедуру....   Найти похожие ветки 

← →
tipman ©   (2004-02-16 09:24) [0]

Делаю так:

var AString:array of String;

procedure qwerty(var temp:array of String);
var i:integer;
begin
i:=5;
SetLength(temp,i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
qwerty(AString);
end;

Пишет ошибку о несовместимости типов. Как надо сделать чтобы это работало?

---

← →
KSergey ©   (2004-02-16 09:28) [1]

type
TStrArr = array of String;

var AString: TStrArr;

procedure qwerty(var temp: TStrArr);

---

← →
Kreon ©   (2004-02-16 21:18) [2]

Попробуй так:
procedure qwerty(@ var temp:array of String);

---

← →
Defunct ©   (2004-02-16 21:33) [3]

Type TAString = array of String;

var AString:TAString;

Procedure qwerty(var temp:TAString);
Var i:integer;
Begin
i:=5;
SetLength(Temp,i);
For I:=0 To 4 Do Temp[i] := Format("Строка: %D",[i]);
End;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var I:Integer;
S:String;
begin
Qwerty(AString);

S:= "";
For I:=0 To Length(AString) -1 Do
Begin
S:= S + AString[i] + #13+#10;
End;
Application.MessageBox(PChar(S),"Строки массива:",MB_OK);
end;

---

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

Текущий архив: 2004.02.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c