Yorumları: 123
Konuları: 51
Kayıt Tarihi: 07-11-2016
Rep Puanı: 66
Başlangıç
24-07-2018, Saat: 18:16
(Son Düzenleme: 24-07-2018, Saat: 18:16, Düzenleyen: Dostk.)
Merhaba.
Integer olan sonuc alanım var bu alanda sayıların durumuna göre ( -) karakteri çıkıyor, StringReplace bu karakteri nasıl temizlerim? veya başka yöntem ile
Örnek:
-22;
Sonuc := IntToStr(StringReplace(StrToInt(Sonuc, '-', '',[rfReplaceAll])));
Hayat bazen güzel olabiliyor.
Yorumları: 884
Konuları: 35
Kayıt Tarihi: 12-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.853
Uzman
Eğer sonuçlar net integer ise ;
if sonuc<0 then sonuc:=sonuc*-1;
yazmanız yeterli olacaktır.
Yorumları: 1.044
Konuları: 149
Kayıt Tarihi: 14-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.093
Uzman
24-07-2018, Saat: 18:19
(Son Düzenleme: 24-07-2018, Saat: 18:21, Düzenleyen: pro_imaj.)
(24-07-2018, Saat: 18:16)Dostk Adlı Kullanıcıdan Alıntı: Merhaba.
Integer olan sonuc alanım var bu alanda sayıların durumuna göre (-) karakteri çıkıyor, StringReplace bu karakteri nasıl temizlerim? veya başka yöntem ile
Örnek:
-22;
Sonuc := IntToStr(StringReplace(StrToInt(Sonuc, '-', '',[rfReplaceAll])));
Değer 0 < ise * -1 yapsanız olmuyor mu? Yanlış anlamış olabilirim.
(24-07-2018, Saat: 18:19)esistem Adlı Kullanıcıdan Alıntı: Eğer sonuçlar net integer ise ;
if sonuc<0 then sonuc:=sonuc*-1;
yazmanız yeterli olacaktır.
aynı anda 
Yorumları: 2.153
Konuları: 259
Kayıt Tarihi: 09-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.659
Uzman
24-07-2018, Saat: 18:33
(Son Düzenleme: 24-07-2018, Saat: 18:34, Düzenleyen: yhackup.)
(24-07-2018, Saat: 18:16)Dostk Adlı Kullanıcıdan Alıntı: Merhaba.
Integer olan sonuc alanım var bu alanda sayıların durumuna göre (-) karakteri çıkıyor, StringReplace bu karakteri nasıl temizlerim? veya başka yöntem ile
Örnek:
-22;
Sonuc := IntToStr(StringReplace(StrToInt(Sonuc, '-', '',[rfReplaceAll])));
Madem bu değişken - değer almayacak yani unsigned olacak neden Integer tanımlıyorsun UInt64 UInt32 veya Cardinal olarak tanımla ?
Yorumları: 123
Konuları: 51
Kayıt Tarihi: 07-11-2016
Rep Puanı: 66
Başlangıç
24-07-2018, Saat: 18:41
(Son Düzenleme: 24-07-2018, Saat: 18:44, Düzenleyen: Dostk.)
UInt64 UInt32 veya Cardinal denedim bu sefer kodda başka yerde kullandığım sonuç:-1; alanında sorun yaşıyorum.
(24-07-2018, Saat: 18:33)yhackup Adlı Kullanıcıdan Alıntı: (24-07-2018, Saat: 18:16)Dostk Adlı Kullanıcıdan Alıntı: Merhaba.
Integer olan sonuc alanım var bu alanda sayıların durumuna göre (-) karakteri çıkıyor, StringReplace bu karakteri nasıl temizlerim? veya başka yöntem ile
Örnek:
-22;
Sonuc := IntToStr(StringReplace(StrToInt(Sonuc, '-', '',[rfReplaceAll])));
Madem bu değişken - değer almayacak yani unsigned olacak neden Integer tanımlıyorsun UInt64 UInt32 veya Cardinal olarak tanımla ?
Ben mi yanlış anladım, siz mi? yanlış anladınız bilemiyorum. 
Örnek:
12-13= -01 çıkıyor burada - temizleyip 01 olarak almam lazım
Hayat bazen güzel olabiliyor.
Yorumları: 214
Konuları: 21
Kayıt Tarihi: 09-07-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 977
Acemi
24-07-2018, Saat: 18:50
(Son Düzenleme: 25-07-2018, Saat: 08:17, Düzenleyen: Fesih ARSLAN.)
(24-07-2018, Saat: 18:16)Dostk Adlı Kullanıcıdan Alıntı: Merhaba.
Integer olan sonuc alanım var bu alanda sayıların durumuna göre (-) karakteri çıkıyor, StringReplace bu karakteri nasıl temizlerim? veya başka yöntem ile
Örnek:
-22;
Sonuc := IntToStr(StringReplace(StrToInt(Sonuc, '-', '',[rfReplaceAll])));
String içindeki rakamlar hariç herşeyi silmek için aşağıdaki fonksiyonu yazıp kullanmıştım. İşlem sonucu String Değer döndürüyor. Eğer içerikte rakam yoksa 0 Döndürüyor. işinize yarar sanırım.
function StringClear(Data:String):string;
var
sira : integer;
temp : String;
begin
temp := '';
for sira:=0 to Length(Data) do
begin
if (Data[sira] in ['0'..'9']) then
temp := temp + Data[sira];
end;
if temp='' then result := '0'
else
result := temp;
end;
Kullanımı :
Caption := StringClear(Edit1.text);
Edit1.text := '-21lkıj87';
Caption := StringClear(Edit1.text);
Sonuç : 2187
Eğer işlem sonuçları Eksi çıkıyor ve siz Artı olmasını istiyorsanız "ABS()" fonksiyonunu kullanın.
Yorumları: 2.153
Konuları: 259
Kayıt Tarihi: 09-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.659
Uzman
(24-07-2018, Saat: 18:41)Dostk Adlı Kullanıcıdan Alıntı: UInt64 UInt32 veya Cardinal denedim bu sefer kodda başka yerde kullandığım sonuç:-1; alanında sorun yaşıyorum.
(24-07-2018, Saat: 18:33)yhackup Adlı Kullanıcıdan Alıntı: Madem bu değişken - değer almayacak yani unsigned olacak neden Integer tanımlıyorsun UInt64 UInt32 veya Cardinal olarak tanımla ?
Ben mi yanlış anladım, siz mi? yanlış anladınız bilemiyorum.
Örnek:
12-13= -01 çıkıyor burada - temizleyip 01 olarak almam lazım
O halde hesabınız yanlış olacak , 12 -13= -01 işlemi doğrudur , siz -'yi kaldırarak işlemi hatalı yapıyorsunuz 
Yorumları: 233
Konuları: 9
Kayıt Tarihi: 07-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.729
Programcı
Abs fonksiyonu değeri pozitif olarak verecektir.
Sonuc=Abs(StrToIntDef(Edit1.Text));
Yorumları: 123
Konuları: 51
Kayıt Tarihi: 07-11-2016
Rep Puanı: 66
Başlangıç
Teşekkür ederim.
Hayat bazen güzel olabiliyor.
Yorumları: 2.153
Konuları: 259
Kayıt Tarihi: 09-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.659
Uzman
(24-07-2018, Saat: 18:33)yhackup Adlı Kullanıcıdan Alıntı: (24-07-2018, Saat: 18:16)Dostk Adlı Kullanıcıdan Alıntı: Merhaba.
Integer olan sonuc alanım var bu alanda sayıların durumuna göre (-) karakteri çıkıyor, StringReplace bu karakteri nasıl temizlerim? veya başka yöntem ile
Örnek:
-22;
Sonuc := IntToStr(StringReplace(StrToInt(Sonuc, '-', '',[rfReplaceAll])));
Madem bu değişken - değer almayacak yani unsigned olacak neden Integer tanımlıyorsun UInt64 UInt32 veya Cardinal olarak tanımla ?
Bekledim ama kimsenin gözüne çaprmaması ilginç oldu,
Aşağıdaki kodda card değişekenin değerini ide'de denemeden söyleyecek var mı
Sizce kaç olur ?
var
card:Cardinal;
begin
card := Cardinal(-1);
end;
|
