OnChange wird 3mal ausgeführt?

[Pseudemys Nelsoni]

hi,

ich habe folgende procedure im OnChange ereignis meines Edits:

Delphi-Quellcode:

procedure TForm2.Edit2Change(Sender: TObject);
var
  pass: pchar;
  apgard: array [0..8] of char;
begin
  if Length(Edit2.Text) = 8 then
  begin
    pass := pchar(Edit2.Text);
    apgar(pass, @apgard[0]);
    Edit2.text := apgard;
    showmessage('hi');
  end;
end;

ich kriege 3mal die message "hi" angezeigt. das ganze darf aber nur 1mal ausgeführt werden, was kan ich da machen?

[gothic_mike]

Moin,

Zitat von Pseudemys Nelsoni:

hi,

ich habe folgende procedure im OnChange ereignis meines Edits:

Delphi-Quellcode:

procedure TForm2.Edit2Change(Sender: TObject);
var
  pass: pchar;
  apgard: array [0..8] of char;
begin
  if Length(Edit2.Text) = 8 then
  begin
    pass := pchar(Edit2.Text);
    apgar(pass, @apgard[0]);
    Edit2.text := apgard;
    showmessage('hi');
  end;
end;

ich kriege 3mal die message "hi" angezeigt. das ganze darf aber nur 1mal ausgeführt werden, was kan ich da machen?

wenn ich mich zu so fruher stunde recht erinnere, dürfte doch bei "Edit2.text := apgard;" ein onchange-event ausgelöst werden
und wenn dann der Text wieder 8 Zeichen lang ist, wird logischerweise wieder showmessage... ausgeführt.

ich würd da mal ne hilfsvariable als boolean definieren, die dann als erstes mal im onchange-event auf false setzen und statt "if Length(Edit2.Text) = 8 then" dies hier nehmen "if (Length(Edit2.Text) and (hilfsvariable = true)) = 8 then".
falls ich total daneben liege, bitte nicht schlagen, aber ich bin im halbschlaf, werd nun auch langsam mal in's bett müssen...

bye4now, gothic_mike

ps:

[Pseudemys Nelsoni]

jo, danke das hab ich übersehen *G*

hab jetzt ne globale boolesche variable genommen