Function CheckField(AFieldName,AData:string; AFields:TFields):Boolean; var i,j:integer; begin Result:=False; i:=0;

Question

Function CheckField(AFieldName,AData:string; AFields:TFields):Boolean; var i,j:integer; begin Result:=False; i:=0;

j:=Length(AFields);
while i<j do
begin
if pos(AFieldName,AData,AFields[i].Name.Start)-AFields[i].Name.Start=1 then
begin
Result:=True;
Break;
end;
inc(i);
end;
{
for i:=0 to Length(AFields)-1 do;
if pos(AFieldName,AData,AFields[i].Name.Start)-AFields[i].Name.Start = 1 then
begin
Result:=True;
Exit;
end;
}
end;
Вот такой код.
цикл while работает нормально.
цикл for не хочет, i сразу получает значение равное Length(AField)-1, выполняется один проход цикла и функция завершается.

Кто-нить может объяснить что это за хрень?

#lazarus #programming #russian

0

21.06.2024

1 ответов

7 просмотров

Igor · Accepted Answer

Igor

for ... do; — пустой цикл

0

6 дней назад

169 похожих чатов

Function CheckField(AFieldName,AData:string; AFields:TFields):Boolean; var i,j:integer; begin Result:=False; i:=0;

1 ответов

Похожие вопросы