Delphi 7 Köşesi...

Yaptığım yazılımda ondalık simgesi olarak nokta (.) kullandım. Kendi bilgisayarımda nokta tanımlı ama kullanılmasını istediğim başka bilgisayarda virgül kullanılmış ve aşağıdaki şekilde ki uyarıyı alıyorum. Ondalık simgesini nokta yaptığımda sorun çözülüyor ancak sürekli bu şekilde mi yapmam gerekli, bunun pratik bir çözüm yolu var mı?

Bu sorun Regional Settings ayarlarından kaynaklanıyor. Windows ayar kaynaklı.
(Not :Resimi görmüyorum, ama bilinen bir konu)

Resimi başka servera yükledim.
Bu sorunun çözümü var mı?

C# 'da bunu tek satırla hallediyoduk. Neyse windowsta kullanılan ondalık ayracı öğrenmeye yarayan kod:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDecimal: PChar;
begin
  MyDecimal:=StrAlloc(10);
  GetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT, 
    LOCALE_SDECIMAL, 
    MyDecimal, 
    10);
  Label1.Caption:='System decimal is - "'+MyDecimal+'"';
end;

N3CAT1 dedi: ↑

C# 'da bunu tek satırla hallediyoduk. Neyse windowsta kullanılan ondalık ayracı öğrenmeye yarayan kod:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDecimal: PChar;
begin
  MyDecimal:=StrAlloc(10);
  GetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT, 
    LOCALE_SDECIMAL, 
    MyDecimal, 
    10);
  Label1.Caption:='System decimal is - "'+MyDecimal+'"';
end;

Bunu öğrendiğinde yine değiştirmek için kodlamam gerekli değil mi? Bu aralar çok hızlı düşünüyorum :)

teşekkürler moderatörüm bu arada uşaklısın diye biliyorum, uşaktan yazılımla ilgilenen arkadaşları görmek ilginç ve mutluluk verici :)

Windowstaki karaktere göre mantığını değiştireceksin.

@webrettin;
Resim görememek benden kaynaklı sorun. Proxy var ve engelliyor çoğu şeyi.
Konuya gelirsek Muhtemelen program kurulum esnasında bu ayarları alan veya ilk çalıştırmada bu ayarları kaydedip oradan okuyan bir .ini dosyası hazırlayacaksın gibi. diğer türlü programın her çalışmasında bu ayarları yapmak için bu fonksiyonu çalıştırması gerekir.

evowinds dedi: ↑

@webrettin;
Resim görememek benden kaynaklı sorun. Proxy var ve engelliyor çoğu şeyi.
Konuya gelirsek Muhtemelen program kurulum esnasında bu ayarları alan veya ilk çalıştırmada bu ayarları kaydedip oradan okuyan bir .ini dosyası hazırlayacaksın gibi. diğer türlü programın her çalışmasında bu ayarları yapmak için bu fonksiyonu çalıştırması gerekir.

Şimdi daha iyi oldu. Teşekkürler arkadaşlar bundan sonrası biraz çalışmayla olacaktır, sorumu sonuçlayan ilgili arkaşlarıma teşekkür birer borç.

Delphi hala yaşıyor mu veya yaşatılıyor mu?

ByEGT dedi: ↑

Delphi hala yaşıyor mu veya yaşatılıyor mu?

Daha iyi öneriler için fevkalede açığım. elimdeki yazlımı bitirince Java ile ilgili dökümanlar edindim. Sanırım onunla çalışıcam. ama yeteri kadar kaynak ve lojistik destek bulabilir miyim, bilmiyorum. delphiyi kaynak ve desteğinin çokluğu nedeniyle seçtim, delphiden önce tecrübem yoktu. Sizin önerileriniz varsa değerlendireceğimden emin olabilirsiniz ve memnuniyet duyarım.

C# 'da daha fazla destek bulabileceğine emin olabilirsin :)

C# iyi güzel ve doküman çok ama ben hala syntax'ına alışamadım. Pascal hala bende bir numara.

Bana da delphinin syntaxı zor geliyor.

Özellikle = yerine := koymak tam bir işkence oluyor :)

Ondalık hakkındaki sorunum bahsettiğiniz şekilde simgeyi sorgulayarak mantığı değiştirerek oluyor, formlarda labelların ve editlerin fazlaca olduğunu düşünürsek (ki maalesef öyle) yazılımın çalıştığı PC'ye ait ondalık sistemini delphiyle değiştiremez miyiz? bunun önünde bir engel var mı?

Değiştirebilirsin ama kullanıcı elle değiştirirse sorun olur. Gerçi program her açıldığında kontrol edip değiştirilmişse ayracı senin belirlediğine değiştirirse olabilir. Ondalık ayracı değiştirme kodu:

procedure TForm1.Button1Click(Sender: TObject);
begin
      SetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT,
    LOCALE_SDECIMAL,
    ',');
end;

N3CAT1 dedi: ↑

Değiştirebilirsin ama kullanıcı elle değiştirirse sorun olur. Gerçi program her açıldığında kontrol edip değiştirilmişse ayracı senin belirlediğine değiştirirse olabilir. Ondalık ayracı değiştirme kodu:

procedure TForm1.Button1Click(Sender: TObject);
begin
      SetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT,
    LOCALE_SDECIMAL,
    ',');
end;

Siz bu işi biliyorsunuz tebrik ederim sistem ikinci bonusu vermiyor. Çok teşekkür ederim.:thumbup:

yıllar sonra bile bu kodların birilerinin işine yarayacağına eminim.

Ondalık ayırıcıyı değiştirmek sorun çıkaracaktır. Hatta program kullanıcıyı sinir dahi edebilir.

Yakında Delphi 2011 ile cross platform desteği geliyor. Bu sayede oluşturduğunuz bir proje Windows, Linux ve Mac işletim sistemleriyle çalışabilecek. (Umarım Kylix gibi olmaz.) ve beklenen 64bit desteğide geliyor.

Deplhi 'de şu syntax meselesi kullanışlı olsa anında geçerdim :)

webrettin dedi: ↑

Ondalık hakkındaki sorunum bahsettiğiniz şekilde simgeyi sorgulayarak mantığı değiştirerek oluyor, formlarda labelların ve editlerin fazlaca olduğunu düşünürsek (ki maalesef öyle) yazılımın çalıştığı PC'ye ait ondalık sistemini delphiyle değiştiremez miyiz? bunun önünde bir engel var mı?

Kullanıcının sisteminde başka veritabanı veya yerel ayarlarla çalışan programlar varsa sorun olabilir. Belki nazikçe bir uyarı mesajı koyabilirsin :)

evowinds dedi: ↑

Kullanıcının sisteminde başka veritabanı veya yerel ayarlarla çalışan programlar varsa sorun olabilir. Belki nazikçe bir uyarı mesajı koyabilirsin :)

Bir nevi sözleşme kabulü gibi oldukça yerinde denemeden sorayım açılışta kontrol edecek değilse değiştireyim mi diye kullanıcıya değişmesi gerektiği hakkında uyarı ve onay bildirimi yapıyorum bu esnada uyarıdan sonra çalışacak olan ondalık düzenimi okuyup hata verir mi?

uyarıdan sonra çalışacak olan ondalık düzenimi okuyup hata verir mi?

Bu noktayı tam anlamadım?

evowinds dedi: ↑

Bu noktayı tam anlamadım?

Anlatımım biraz karmaşık oldu açayım. gerçi birazdan derleyip deneyeceğim. Ondalık simgesi değişik olduğunda hata veriyordu ve sizlerin verdiği kodlarla hatanın önüne geçtim. Siz bunun bölgesel ayarlarla çalışan uygulamalarda sorun çıkarmaması ve kullanıcı bilgisi dahilinde olması için uyarı vermemi istediniz. Yazılım ilk çalıştığında bu uyarı ve simge değiştirme onay penceresi çıkacak sormak istediğimde burda başlıyor hata verecek olan problem henüz değişmediği için kullanıcı onaylayasıya kadar peş peşe hata alır mıyım? teşekkürler derlemeyi hazırlayıp sonucu vakit olursa buraya yazayım.

Ek: Yazlımıma göre bahsettiğim hatayı verdi ama aşılamayacak bir sorun değil artık benim için problemli yerleri yardımlarınızla geçtim, tekrar emekleriniz için teşekkürler;

N3CAT1 dedi: ↑

Değiştirebilirsin ama kullanıcı elle değiştirirse sorun olur. Gerçi program her açıldığında kontrol edip değiştirilmişse ayracı senin belirlediğine değiştirirse olabilir. Ondalık ayracı değiştirme kodu:

procedure TForm1.Button1Click(Sender: TObject);
begin
      SetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT,
    LOCALE_SDECIMAL,
    ',');
end;

Bu kod benim de işime yarayabilir. Bazı kullanıcılardan ben de floating point hatası alıyordum. Sistemimde deniyorum bende düzgün çalışıyor, sinir olmuştum :D yeni versiyonda ben de bu kodu kullanırım. Teşekkür ederim, bir hatayı daha kapattık :D

N3CAT1 dedi: ↑

Ondalık ayracı değiştirme kodu:

procedure TForm1.Button1Click(Sender: TObject);
begin
      SetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT,
    LOCALE_SDECIMAL,
    ',');
end;

Herkese yeniden merhaba. Bu konu hakkında yine bir sorum olacak. yukarıda ki kodu en azından bendeki kaynaklarda bulmak neredeyse mümkün değil. Bu tür çözümleri örneğin internetin açılış sayfası değişmeyecek şekilde müdahaleye uğradı ve çözülmesi gerekli, kayıt defterinde değişiklik yaparak sorunu çözebiliyoruz. Kayıt defterine müdahaleyi bilen tüm kişiler bunu bu şekilde çözebilir. Ondalık vb değişimler için gereken kodları nasıl elde edebiliriz, kısaca makinadan bu komutlara ulaşabileceğim elde edebileceğimiz yerler var mı? Ya da bu gibi konularda tavsiye edebileceğiniz kaynak önerir misiniz?

Bir soru da ben sorayım: programın açılışında dosya adresi almasını nasıl sağlarım? yani mesela kendim bir dosya uzantısı yaptım .abc şeklinde. bu dosyayı sadece benim programım açıyor, klasörlerde dolaşırken herhangi bir .abc uzantılı dosyaya çift tıklandığında benim programla açmasını nasıl sağlarım? C dillerinde main fonksiyonunun "string[] args" şeklindeki parametresiyle açılmaya çalışılan dosyanın adresini alabiliyoruz, aynı işlemi delphi ye uygulayamadım. bilen var mı???

FormCreate olayında şu kodla mevcut parametreleri alabilirsin:

if Paramstr(1)='' then
 ShowMessage('Parametre yok')
else
 ShowMessage('Parametre: '+paramstr(0));

ParamStr(0) = Exe dosyasının bulunduğu yer
ParamStr(1) = 1. parametre
ParamStr(2) = 2. parametre
.
.
.
ParamStr(n) = n. parametre

N3CAT1 dedi: ↑

FormCreate olayında şu kodla mevcut parametreleri alabilirsin:

if Paramstr(1)='' then
 ShowMessage('Parametre yok')
else
 ShowMessage('Parametre: '+paramstr(0));

ParamStr(0) = Exe dosyasının bulunduğu yer
ParamStr(1) = 1. parametre
ParamStr(2) = 2. parametre
.
.
.
ParamStr(n) = n. parametre

Eyvallah arkadaşım on numara oldu :D bonusu hakettin :) konunun adını bilemediğim için google'da da aratamamıştım. tekrar çok teşekkür ederim...

lazarus kullanan var mi ?

Delphiciler http://www.delphiturk.com adresindeki "Delphi Türk Kodbank 3.1" programını indirip kurar ve güncellerseniz 5000'den fazla delphi örneğine ulaşabilirsiniz. Ayrıca siteye üye olup kendi kodlarınızı gönderebilirsiniz

pcman dedi: ↑

lazarus kullanan var mi ?

Ben biraz kurcalıyorum.