Edit içinde sayı ve harfleri bir birinden ayırmak için kodları kullanıyorum edit içinde örnek: abc123 varsa aynı sayıları her tıklamada 123123 oluşuyor kopyalama yapmadan sadece 123 olarak nasıl ayıklama yapabilirim
procedure TForm1.Edit1Click(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
Edit1.Text := Edit1.Text + S[I]; // Sayıları Ayıklıyoruz
end;
end;
end;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Edit içinde sayı ve harfleri bir birinden ayırmak için kodları kullanıyorum edit içinde örnek: abc123 varsa aynı sayıları her tıklamada 123123 oluşuyor kopyalama yapmadan sadece 123 olarak nasıl ayıklama yapabilirim
procedure TForm1.Edit1Click(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
Edit1.Text := Edit1.Text + S[I]; // Sayıları Ayıklıyoruz
end;
end;
end;
procedure EditAyıkla(Sender: TObject); // --->>> Harf Ayıkla
var
I: integer;
S: String;
begin
S := Trim(Form16.Edit4.Text);
Form16.Edit4.Text := '';
---kodun bundan sonrası işlem yapmıyor-----
for I := 1 to Length(S) do
begin
if S[I] in ['0' .. '9'] then
begin
Form16.Edit4.Text := Form16.Edit4.Text + S[I]; // Ayıkla
end;
end;
end;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Evet denedim hata alıyorum filitre ettğim edit le tekrar filitre edileni aynı editte yazdırınca
First chance exception at $77552DDE. Exception class $C0000005 with message 'access violation at 0x77552dde: write of address 0x00030fec'. Process Project1.exe (5248)
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...