Delphi.
В одной процедуре выполняется цикл - перебор символов в dbedit. При нахождении какого-то символа - например порбела, нужно передать управление другой процедуре, а цикл остановить.
Подскажите как??
Буду примного благодарен

Где-то так:

Код

procedure Call; begin ... end; procedure FindEdit; var  n: Integer; begin  for n:= 1 to Length(dbEdit1.Text) do    if dbEdit1.Text[n] = ' ' then begin      Call;      Break; // Остановить цикл    end; end;

Ну или еще один вариант

Код

procedure Call; begin ... end; procedure FindEdit; var n: Integer; begin for n:= 1 to Length(dbEdit1.Text) do   if dbEdit1.Text[n] = ' ' then begin     Call;     n:=Length(dbEdit1.Text); // Остановка цикла   end; end;

Изиняюсь за воровстово кода нео писать то же ленно...

Ну тогда еще вариант:

Код

procedure Call; begin ... end; procedure FindEdit; var n: Integer; begin for n:= 1 to Length(dbEdit1.Text) do   if dbEdit1.Text[n] = ' ' then begin     Call;     EXIT; // Выход из процедуры   end;

А у меня процедура такая:
procedure TForm2.DBEditEh2EditButtons0Click(Sender: TObject;
var Handled: Boolean);
begin
DBEditEh2.EditMask := '';
DBEditEh2.EditMask := '000\-000\-000\ 00;1;x';
end;

в неё нужно передать управление. За место call ставить TForm2.DBEditEh2EditButtons0Click ???

DBEditEh2EditButtons0.Click; или
DBEditEh2EditButtons0Click(nil); или
DBEditEh2EditButtons0.OnClick(nil);

А вообще на мой взгляд было бы грамотнее вынести процедуру за кнопку.

procedure Call;
begin
DBEditEh2.EditMask := '';
DBEditEh2.EditMask := '000\-000\-000\ 00;1;x';
end;

и вызов положить в кнопку

procedure TForm2.DBEditEh2EditButtons0Click(Sender: TObject;
var Handled: Boolean);
begin
Call;
end;
а дальше как в примерах выше, только мне больше нравится Repeat, т.е.

procedure FindEdit;
var
n: Integer;
begin
n:= 1;
Repeat
if dbEdit1.Text[n] = ' ' then begin Call;
inc(n);
Until (n>Length(dbEdit1.Text)) or (dbEdit1.Text[n] = ' ')
end;

Он как-то гибче чтоли?... Хотя это дело вкуса.

Bes Неправильный код (прибавление n идет перед until)
Во вторых при пустой строке будет ошибка

Код

procedure FindEdit; var n: Integer; begin n:= 0 Repeat inc(n); if n<= Length(dbEdit1.Text) then  if  dbEdit1.Text[n] = ' ' then begin Call; Until (n>Length(dbEdit1.Text)) or (dbEdit1.Text[n] = ' ') end;

2SlaUr:
Ну если честно я не компилировал так набросал.
А какая разница где прибавлять? Ну у тебя росто с нуля начинается у меня с 1 просто везде выше начиналось с единицы.
А.. попробовал - понял согласен - накосячил. на выходе надо дописать было n-1 и проверочку конечно.. :-)

BesОшибки делают все .Я просто поправил и все ,так что все нормально.

круто!:) спасибочки!!!

Последний вопросик., простите если глупый.
Где и как объявить процедуру call? Потому что в нутри процедуры ничего не работает! Вываливаются ошибки: undeclared identifier edit1
missing operator or semicolor
......

Сделать так берешь и пишешь м/у строчками
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Procedure Call;
end;

var
Form1: TForm1;

потом нажимаешь волшебную комбинацию клавиш Ctrl+Shift+C и у тебя должна появиться такая вот заготовочка.

procedure TForm1.Call;
begin
Сюда и пишешь что тебе заблагорассудится.
end;

да и почему Edit если у тебя был dbEdit?

вообщето Edit, но ведь разницы нет в моём случае

Можно и по другому

Код

procedure call begin with form1 do   begin      тут пишем свой код   end; end