editteki harf ve rakamı ayırma

[akuyumcu63]

değerli arkadaşlar;

edit'e yazılan sayısal ve metin değerlerini birbirinden ayıran bir fonksiyon varmı? yada bu işlemi nasıl yapabilirim.

kolay gelsin.

[CiTiZEN]

InKeyPress event

Kod: Tümünü seç

if (key IN ['0'..'9']) then
showmessage('Sayısal değer ');

gibi olabilir forumda daha örnekleri vardır

[akuyumcu63]

edit kutusuna yazılmış sayısal ve string değerleri değişkenlere atayıp başka editelere aktarmak istiyorum. string değerleri edit2 ye sayısal değerleri edit3 e gibi

örneğin ; edit1 kutusunda 'ab57cd93f' gibi olusun

edit2 ye : abcdf
edit3 e : 5793

değerlerinin aktarılarak edit1 deki değerlerin ayrıştırılmasını istiyorum.

[mrmarman]

zor bir işlem değil aslında @CiTiZEN güzelce ifade etmiş ...

Kod: Tümünü seç

Var
  i : integer;
begin
  Edit2.Text := '';
  Edit3.Text := '';

  for i := 1 to Length(Edit1.Text) do begin
    if Edit1.text[i] in ['0'..'9']
    then Edit3.Text := Edit3.Text + Edit1.text[i]
    else Edit2.Text := Edit2.Text + Edit1.text[i];
  end;
end;

[akuyumcu63]

çok teşekkür ederim. sizlerde olmasaydınız biz bu işi yürütemezdik.