Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ComboBox1 İçeriğini Kaydetme
#11
(14-09-2019, Saat: 14:18)OZCANK Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(14-09-2019, Saat: 14:11)Mr.Developer Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.buyrun direkt indirme bağlantısı

Tşk. Ederim kardeşim indirdim inceliyorum.

Rica ederim. takıldığınız yer olursa yazın kodları direkt uyarlayıp atayım.
Hayat bakış açına göredir ; Baktığında gördüğün görmeni istedikleridir...
Cevapla
#12
cinarbil ve emeği geçen arkadaşlara çok teşekkür ederim. Allah sizlerden Razı Olsun. Yüreğinize sağlık

Şu şekilde Kullandım ve sorunum çözüldü;

procedure RegDegerYaz(const Anahtar, Deger: String);
var
Alan:Tregistry;
begin
try
  Alan := tregistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', True) then
  begin
    Alan.WriteString(Anahtar, Deger);
  end;
finally
  Alan.Free;
end;
end;
////////////////
Function RegDegerOku(const Anahtar: String): String;
var
Alan: TRegistry;
begin
Result := '';
try
  Alan := TRegistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', False) then
  begin
    Result := Alan.ReadString(Anahtar);
  end;
finally
  Alan.Free;
end;
end;




procedure TForm19.ComboBox2Exit(Sender: TObject);
begin
RegDegerYaz('ComboBox2', IntToStr(ComboBox2.ItemIndex));
end;
////////////////
procedure TForm19.FormCreate(Sender: TObject);
begin
ComboBox2.ItemIndex := StrToInt(RegDegerOku('ComboBox2'));

Bu hatayı neden veriyor anlamadım;

[Warning] RAPORU.pas(442): Variable 'Alan' might not have been initialized
[Warning] RAPORU.pas(471): Variable 'Alan' might not have been initialized
Cevapla
#13
(14-09-2019, Saat: 14:52)OZCANK Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.cinarbil ve emeği geçen arkadaşlara çok teşekkür ederim. Allah sizlerden Razı Olsun. Yüreğinize sağlık

Şu şekilde Kullandım ve sorunum çözüldü;

procedure RegDegerYaz(const Anahtar, Deger: String);
var
Alan:Tregistry;
begin
try
  Alan := tregistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', True) then
  begin
    Alan.WriteString(Anahtar, Deger);
  end;
finally
  Alan.Free;
end;
end;
////////////////
Function RegDegerOku(const Anahtar: String): String;
var
Alan: TRegistry;
begin
Result := '';
try
  Alan := TRegistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', False) then
  begin
    Result := Alan.ReadString(Anahtar);
  end;
finally
  Alan.Free;
end;
end;




procedure TForm19.ComboBox2Exit(Sender: TObject);
begin
RegDegerYaz('ComboBox2', IntToStr(ComboBox2.ItemIndex));
end;
////////////////
procedure TForm19.FormCreate(Sender: TObject);
begin
ComboBox2.ItemIndex := StrToInt(RegDegerOku('ComboBox2'));

Bu hatayı neden veriyor anlamadım;

[Warning] RAPORU.pas(442): Variable 'Alan' might not have been initialized
[Warning] RAPORU.pas(471): Variable 'Alan' might not have been initialized

uses kısmın da  Registry olduğunu varsayarak.

programın exe sini çalıştırırken sağ tuş yönetici olarak çalış diyerek deneyebilir misin.
hata hangi satırda 442,472 örnek kodunda neresi
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#14
(14-09-2019, Saat: 15:12)cinarbil Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(14-09-2019, Saat: 14:52)OZCANK Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.cinarbil ve emeği geçen arkadaşlara çok teşekkür ederim. Allah sizlerden Razı Olsun. Yüreğinize sağlık

Şu şekilde Kullandım ve sorunum çözüldü;

procedure RegDegerYaz(const Anahtar, Deger: String);
var
Alan:Tregistry;
begin
try
  Alan := tregistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', True) then
  begin
    Alan.WriteString(Anahtar, Deger);
  end;
finally
  Alan.Free;
end;
end;
////////////////
Function RegDegerOku(const Anahtar: String): String;
var
Alan: TRegistry;
begin
Result := '';
try
  Alan := TRegistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', False) then
  begin
    Result := Alan.ReadString(Anahtar);
  end;
finally
  Alan.Free;
end;
end;




procedure TForm19.ComboBox2Exit(Sender: TObject);
begin
RegDegerYaz('ComboBox2', IntToStr(ComboBox2.ItemIndex));
end;
////////////////
procedure TForm19.FormCreate(Sender: TObject);
begin
ComboBox2.ItemIndex := StrToInt(RegDegerOku('ComboBox2'));

Bu hatayı neden veriyor anlamadım;

[Warning] RAPORU.pas(442): Variable 'Alan' might not have been initialized
[Warning] RAPORU.pas(471): Variable 'Alan' might not have been initialized

uses kısmın da  Registry olduğunu varsayarak.

programın exe sini çalıştırırken sağ tuş yönetici olarak çalış diyerek deneyebilir misin.
hata hangi satırda 442,472 örnek kodunda neresi

Program.exe de değil derlerken alıyorum bunu.
Cevapla
#15
Öncelikle, sorulan sorunun çok basit bir soru olduğunu ve kısa bir -kendi kendine- araştırma ile çözülebileceğini belirteyim. Bu tarz soruları hiç bir araştırma yapmadan başkalarına sormak soruyu sorana hiç bir şey kazandırmaz. Yardımcı olmaya çalışan arkadaşlar da soruyu sorana iyilik yapmıyorlar, bunu da bilsinler.

Bu bağlamda, bir daha bu tarz soru ve yanıt görür isem; negatif rep puanınızı vereceğim. Tekrarı halinde, uyarı vereceğim, tekrarı durumunda da uzaklaştırma vereceğim.

Kendinize yatırım yapmayı unutmamalısınız !
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#16
(14-09-2019, Saat: 14:52)OZCANK Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.cinarbil ve emeği geçen arkadaşlara çok teşekkür ederim. Allah sizlerden Razı Olsun. Yüreğinize sağlık

Şu şekilde Kullandım ve sorunum çözüldü;

procedure RegDegerYaz(const Anahtar, Deger: String);
var
Alan:Tregistry;
begin
try
  Alan := tregistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', True) then
  begin
    Alan.WriteString(Anahtar, Deger);
  end;
finally
  Alan.Free;
end;
end;
////////////////
Function RegDegerOku(const Anahtar: String): String;
var
Alan: TRegistry;
begin
Result := '';
try
  Alan := TRegistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', False) then
  begin
    Result := Alan.ReadString(Anahtar);
  end;
finally
  Alan.Free;
end;
end;




procedure TForm19.ComboBox2Exit(Sender: TObject);
begin
RegDegerYaz('ComboBox2', IntToStr(ComboBox2.ItemIndex));
end;
////////////////
procedure TForm19.FormCreate(Sender: TObject);
begin
ComboBox2.ItemIndex := StrToInt(RegDegerOku('ComboBox2'));

Bu hatayı neden veriyor anlamadım;

[Warning] RAPORU.pas(442): Variable 'Alan' might not have been initialized
[Warning] RAPORU.pas(471): Variable 'Alan' might not have been initialized

Merhaba,
Warning, hata değil bir uyarıdır.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  web üzerinden veri kaydetme ve veri çekme murtishow76 5 1.110 15-12-2018, Saat: 19:53
Son Yorum: masteryoda
  TWebBrowser PDF Olarak Kaydetme narkotik 9 1.356 02-04-2018, Saat: 17:25
Son Yorum: narkotik



Konuyu Okuyanlar: 1 Ziyaretçi