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...
