yazının içindeki sayıları ve stringleri ayırmak

[ALUCARD]

arkadaşlar merhaba

diyelimki editin içinde S01JJ20X632938 yazısı var

ben bunun içindeki sayıları ve harfleri nasıl ayırabilirm

sayıların ve stringlerin yeri belli değil.

d7 kullanıyorum.

[fduman]

Kod: Tümünü seç

for I:= 1 to Length(S)
  if S[I] in ['0'..'9'] then // Bu sayi işte
    else
       // Bu da harf

[ALUCARD]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
I:integer;
s:string;
begin
s:=trim(edit1.text);
for I:= 1 to Length(S) do
  begin
  if S[I] in ['0'..'9'] then 
    begin
    edit2.Text:=edit2.Text+S[I];// sayıları edit2 ye topluyoruz
    end
    else
    begin
   edit3.Text:=edit3.Text+S[I];// harfleri edit3 ye topluyoruz
    end
  end;
end;

hocam kodu bu şekilde kullanıyorum

teşekkür ederim.