Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как узнать что строка закончилась?

Автор: ZLOvar 23.12.2009, 14:38

Собственно, есть цикл операции:

Код


Var A,B,C : Integer;
While < Уже кончилась строка?> do
A := 5;
B := 6;
C := A + B;
Edit2.Text := IntToStr(C+С);
End;

Сложение привоже в качестве примера. Так вот, как узнать что строка-то кончилась? Допустим у нас в едит1: "DFEGRT". И он будет выполнять данный цикл ,пока не прочтет стрку до последнего символа: "T". У кого какие предложения? smile

Автор: amsoft 23.12.2009, 14:50

сделай цикл по другому

Код


For X := 1 to Length(Edit1.Text) do
    begin
    ...
    end;

ЗЫ Обращайся в цикле к каждому символу так:

Код


Edit1.Text[X]

Добавлено через 2 минуты и 42 секунды
Подобный прием уже недавно приводился http://forum.vingrad.ru/index.php?showtopic=284910&view=findpost&p=2054215

Автор: profesiachuvak 23.12.2009, 14:53

Использовать вычисление длины строки :

Код


procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,a:integer;
begin
a:=0;
s:='Hello';
i:=length(s);
while a<i do      //сравниваем с кол-вом симоволов в строке
begin             //выйдет из цикла по достижению a=5
a:=a+1;
ShowMessage('Строка номер ' + IntToStr(a));                               
end;
end;