while not eof(1) do....

← →
denis24 (2003-04-02 19:07) [0]

Как перейти из даного шага на следующий без выхода из всего цикла?
while not eof(1) do
begin
считываем строку,,,

if lenght(stroka)>10 then ?????
end

← →
Palladin © (2003-04-02 19:11) [1]

перефразируй

← →
Zz_ (2003-04-02 19:14) [2]

Тебе continue что-ли нужен ?

← →
vgb © (2003-04-02 19:16) [3]

continue

← →
denis24 (2003-04-02 19:19) [4]

точно
а вот как это на вб?

← →
panov © (2003-04-02 19:36) [5]

>denis24 (02.04.03 19:19)
точно
а вот как это на вб?

Точно так же...

← →
denis24 (2003-04-02 19:42) [6]

нифига,,,,ругается

Специально проверил - все в порядке.

var
s: String;
begin
s := "12345678901234567890";
while True do
begin
if Length(s)>10 then
begin
Delete(s,1,1);
Continue;
end else break;
end;
ShowMessage("ok");
end;

while not eof(1) do.... Найти похожие ветки