VPF::Как узнать что строка закончилась?

ZLOvar

Дата 23.12.2009, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 1
Всего: 4

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

Код


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

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

Код


Edit1.Text[X]

Добавлено через 2 минуты и 42 секунды
Подобный прием уже недавно приводился здесь

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

profesiachuvak

Дата 23.12.2009, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

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

Код


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;

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »