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]

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

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

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

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