Veri integer mı? string mi?

[kara_kule06]

merhaba arkadaşlar,

excelden bir sütundaki hücreleri satır satır okuyup sayı olanları bir adet memoya sayı olmuyanları ise başka bir memoya atmak istiyorum. C# ta isnumeric diye bir fonk. var. Delphide bunu nasıl yapabilirim.

[ikutluay]

Merhaba

kod aşağıda ama lütfen aramayı kullanın. "delphi isnumeric dediğinizde google da bir ton örnek var. forum sürekli aynı soruların tekrar ettiği bir plağa benziyor yoksa. aşağıda gördüğünüz gibi kodun öyle extra zor bir tarafıda yok

Kod: Tümünü seç

function TForm1.IsNumeric(s: string): boolean;
var i : integer;
var test:string;
begin
 for i:= 0 to 47 do
   begin
     if (pos(chr(i),s) > 0) then
       begin
         result := false;
       end;
   end;
// 48-57 arası atlanıyor onlar rakam 0-9
 for i := 58 to 255 do
   begin
     if (pos(chr(i),s)>0) then
       begin
          result := false;
       end

 end;

end;

[kara_kule06]

Teşekkürler hocam hemen deniyorum....

[MehmetZahit]

Kod: Tümünü seç

implementation

{$R *.dfm}

function IsNUmeric(const s: string): boolean;

var
 i: integer;

begin
    Result := True;
 
    for i:=1 to length(s) do
        if not (s[i] in ['0'..'9']) then
            begin
            Result := False;
            Break; 
            end;
end;


procedure TForm1.button1Click(Sender: TObject);
var 
    test: string;

begin

    test := inputbox('Isnumeric','Birşeyler girin','');
    if (isnumeric(test)) 
        then ShowMessage('Sadece numara girdiniz');
        else Showmessage('Alfanumerik karakterler girdiniz');
end;

end.

daha güzel bir kod istersen bunu dene

[Battosai]

function TForm1.IsNumeric(s: string): boolean;
begin
if strtointdef(s,0)<>0 then
result:=True
else
result:=False;
end;

[MehmetZahit]

function TForm1.IsNumeric(s: string): boolean;
begin
if strtointdef(s,0)<>0 then
result:=True
else
result:=False;
end;

bu kod daha güzelmiş fakat değer 0 ise result = false oluyor yani 0 rakamını alfanümerik olarak görecek.

[kara_kule06]

cevaplarınız için teşekkürler arkadaşlar. ikutluay ın kodu işimi gördü ama ilk fırsatta diğerlerinide deniyeceğim.

[Hakan Can]

Şu daha garanti bir çözüm gibi:

Kod: Tümünü seç

function IsNumeric(const aText: string): Boolean;
begin
  Result := FALSE;
  try
    StrToFloat(aText);
    Result := TRUE;
  except
  end;
end;

[/b]

[sabanakman]

Eskiden kalma bir teknik de benden (StrToIntDef'te de bu kullanılmış):

Kod: Tümünü seç

function isNumeric(const S:String):Boolean;
var Sayi:Real; hata:Integer;
begin
  Val(S,Sayi,hata);
  Result:=hata=0;
end;

[ikutluay]

Eskiden kalma bir teknik de benden (StrToIntDef'te de bu kullanılmış):

Kod: Tümünü seç

function isNumeric(const S:String):Boolean;
var Sayi:Real; hata:Integer;
begin
  Val(S,Sayi,hata);
  Result:=hata=0;
end;

Kendi verdiğim kodda dahil en mmantıklı ve sağlam kod bu sanırım...

Hep derim her programcının bir yoğurt yiyişi vardır.