| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с циклом for [D5, Win2k]
velk © (2002-08-23 14:44:00)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;
Shrek (2002-08-23 17:55:00) [1]я пробывал, цыкл работает на оборот
velk (2002-08-23 15:12:00) [2]да вот точку отсанова ставлю здесь if r.N[i]<>"" then
BOA_KAA (2002-08-23 15:06:00) [3]Ну, нагородил :-)). А, собственно, проблема-то в чем? Ты условия-то правильно в теле цикла поставил? И вообще - где ты прерывания ставишь, что у тебя сразу 14? На мой взгляд - дело только в условиях... (если не считать страшной записи:-)))
MBo (2002-08-23 14:52:00) [4]оптимизация. вопрос задается каждые 3 дня, поищи
| |
