Edit1 üzerinde son karakter virgül ise uyarı verdirebilirmiyiz?

[Shnsmn]

Merhaba
form üzerinde edit1 bulunmakta. ve birde butonum var.

örneğin edite

7,0,

şeklinde bir sayı girildiğinde, son karakterde şayet virgül varsa o virgülü silmesini istiyorum. yada uyarı verebilir.
Bunu nasıl yapabilirim?
Saygılarımla.

[freeman35]

lenght, EndsWith, delete, "string i array gibi kullanma" konularını incele

[Shnsmn]

şu şekilde bir çözüm buldum.Teşekkürler

a := AnsiRightStr(edit1.text, 1);
if a=',' then
begin

s:=edit1.Text;
s:=copy(s,1,length(s)-1);
edit1.text:=s;

[palandoken]

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in ['0'..'9', ',', #8, #9]) then //belirtilen değerlerden başka değer girilmesin
      Key := #0;
   if (AnsiPos(',',TEdit(sender).Text)<>0) and (key=',') then   //birden fazla virgül girilmesin
      key:=#0;

end;

[freeman35]

şu şekilde bir çözüm buldum.Teşekkürler

a := AnsiRightStr(edit1.text, 1);
if a=',' then
begin

s:=edit1.Text;
s:=copy(s,1,length(s)-1);
edit1.text:=s;

Kod: Tümünü seç

var S: string;
begin
   S:= TrimRight(Edit1.Text);
   if S.EndsWith(',')then Edit1.Text:= S.Remove(S.Length -1, 1)
   else Edit1.Text:= S;