Скачать: CL | DM;

SetLength   Найти похожие ветки 

← →
TButton ©   (2004-04-12 15:56) [0]

добрый вечер, почтеннейшие.
Что-то дельфи меня ввела в ступор. Вот туплю в моинтор и никак не пойму в каком смысле она говорит Incompatible types
вот код:

procedure InsString(str: string; after: integer; var txt: array of string);
var
 i: integer;
begin
 if after>high(txt) then Exit;
 SetLength(txt,high(txt)+2);
 for i:=high(txt) downto after+2 do
   txt[i]:=txt[i-1];
 txt[after+1]:=str;
end;

выделенная строчка её (Дельфу) почему-то бесит, что в свою очередь начинает бесить меня =) мож кто знает хде я на путал?

---

← →
Тимохов ©   (2004-04-12 16:00) [1]

type
tsa = array of string;
procedure InsString(str: string; after: integer; var txt: tsa);
var
i: integer;
begin
if after>high(txt) then Exit;
SetLength(txt,high(txt)+2);
for i:=high(txt) downto after+2 do
  txt[i]:=txt[i-1];
txt[after+1]:=str;
end;

---

← →
clickmaker ©   (2004-04-12 16:00) [2]

объяви тип
TStringArray = array of string;

---

← →
TButton ©   (2004-04-12 16:22) [3]

большое спасибо, помогло. а в чем причина не подскажете?

---

← →
Юрий Зотов ©   (2004-04-12 16:33) [4]

> TButton ©   (12.04.04 16:22) [3]
> а в чем причина не подскажете

array of... прямо в параметрах - это не динамический, а открытый массив, к которым SetLength неприменимо.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c