Вверх ↑
Разработчик
Ответов: 4697
Рейтинг: 426
#1: 2009-08-24 13:04:19 ЛС | профиль | цитата
Я поставил вот тут:
#pas
function THIIf_Else_Multi.Cmp(Mask:string):string;
//...
begin
SetLength(op,0); SetLength(OpTyp,0); int := 0; i := 0; ot := 0; Cn := 0;
while i < length(Mask) do begin//определение операндов
inc(i);
SetLength(OpTyp,(ot + 1));
SetLength(op,i + 1);
//...
и тут
#pas
function THIIf_Else_Multi.MultiCompare(Maska:string):string;
//...
begin
SetLength(s,0);
Result := ';
int1 := 0;
Cn1 := 0;
for i1 := 1 to length(Maska) do
begin
SetLength(s,int1);
//...
------------ Дoбавленo в 13.04:
Тот же runTime
------------ Дoбавленo в 13.34:
Ура!!! Заработало, поставил установку длины массива в процедуру SetCount и приравнял 100, но не знаю, практичен такой метод или нет
карма: 10
0