Tschenrechner -> Buttons

[CK_CK]

Hi!
Das geht noch einfacher (ohne globale Variable).
Du prüfst einfach, ob das Zeichen schon im Edit steht und wenn nein, dann wird es hinzugefügt...
Code:

Delphi-Quellcode:

[...OnClick...]
var
  tmp: String;
begin
  tmp := Edit1.Text;
  if Pos(',',tmp) = -1 then Edit1.Text := tmp + ',';
end;

Noch kürzer:

Delphi-Quellcode:

[...OnClick...]
begin
  if Pos(',',Edit1.Text) = -1 then Edit1.Text := Edit1.Text + ',';
end;

Chris

Edit: Mein "Noch kürzer"-Edit kam gleichzeitig mit Nils_13s post...