Проблема с циклом for

← →
velk (2002-08-23 14:44) [0]

function SetNGT_LONG(r:res):string;
var s:string;
i:integer;
b:boolean;
begin
s:=r.N[1];
b:=false;
i:=0;
for i:=2 to 15 do
begin
// Здесь происходит первый проход и мы видим что i=14. Как ТАК? ПОМОГИТЕ РАЗОБРАТЬСЯ..... DELPHI5
if r.N[i]<>"" then
if (r.N[i]<>"/")or(not b) then
begin
s:=s+"-";
s:=s+r.N[i];
end
else
begin
s:=s+r.N[i];
b:=true;
end;
end;
Result:=s
end;

← →
MBo (2002-08-23 14:52) [1]

оптимизация. вопрос задается каждые 3 дня, поищи

← →
BOA_KAA (2002-08-23 15:06) [2]

Ну, нагородил :-)). А, собственно, проблема-то в чем? Ты условия-то правильно в теле цикла поставил? И вообще - где ты прерывания ставишь, что у тебя сразу 14? На мой взгляд - дело только в условиях... (если не считать страшной записи:-)))

← →
velk (2002-08-23 15:12) [3]

да вот точку отсанова ставлю здесь if r.N[i]<>"" then

← →
Shrek (2002-08-23 17:55) [4]

я пробывал, цыкл работает на оборот

Проблема с циклом for Найти похожие ветки