838 uygun sonuç bulundu

gönderen ikra
07 Eki 2023 01:10
Forum: Programlama
Başlık: Timage1 ile ListBox1 deki veriyi Listbox2 ye gönderme
Cevaplar: 2
Görüntüleme: 142

Re: Timage1 ile ListBox1 deki veriyi Listbox2 ye gönderme

Kod: Tümünü seç

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  ListBox2.Items.Assign(ListBox1.Items);
end;
gönderen ikra
21 Eyl 2023 10:47
Forum: Programlama
Başlık: içiçeif kullanımı sorunu
Cevaplar: 7
Görüntüleme: 347

Re: içiçeif kullanımı sorunu

TRadioGroup nesnesi bicilmis kaftan.
gönderen ikra
20 Eyl 2023 05:12
Forum: Programlama
Başlık: içiçeif kullanımı sorunu
Cevaplar: 7
Görüntüleme: 347

Re: içiçeif kullanımı sorunu

Ayni Parent üzerinde olan Radiobutton'lar birden fazla check edilemezler. Bunun icin CheckBox kullanmaniz gerekir. Yada Mustafa hocamin dedigi gibi, AND yerine OR kullanmaniz gerekir. konuyla direkt alakasi olmasa da, true yada false kullanmak yerine, if radiobutton.checked then yada if not radiobut...
gönderen ikra
19 Nis 2022 12:09
Forum: Programlama
Başlık: Formkeydown ile gelen hatalı karakterler
Cevaplar: 1
Görüntüleme: 411

Re: Formkeydown ile gelen hatalı karakterler

Unicode olayindan kaynaklandigini düsünüyorum. Delphi 7‘de char 1 byte yer kaplarken, kullandigin sürümde char 2 byte yer kapliyor.
gönderen ikra
29 Mar 2022 10:53
Forum: Delphi VCL
Başlık: Delphi procedure ve function nedir?
Cevaplar: 2
Görüntüleme: 1062

Re: Delphi procedure ve function nedir?

Parametresiz prosedür giris yok cikis yok Procedure BirseyYap; Begin Edit1.Text := ‘Giris yok cikis yok‘; End; Parametreli procedure giris var cikis yok Procedure BirseyYap(AParam: String); Begin Edit1.Text := AParam; End; Parametresiz function giris yok cikis var Function BirseyYap: Boolean; Begin ...
gönderen ikra
12 Tem 2021 12:45
Forum: Programlama
Başlık: Firebird veritabanına bilgiler yansımıyor..
Cevaplar: 2
Görüntüleme: 641

Re: Firebird veritabanına bilgiler yansımıyor..

Cevabini vermissin zaten. Transaction kullanmadigin icin, programi kapattiginda default event devreye girip commit ediyor. Transaction kullanip commitretaining yapip, veritabanini degisikliklerden haberdar etmen gerekiyor.
gönderen ikra
30 Haz 2021 01:25
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 1989

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

matris nedir bilmem. hatta bildigim konularin isimlerini dahi bilmem. hicbir seyi ingilizce olarak okumam. yazildigi gibi okurum. ingilizler, amerikalilar türkce ögrensinler prensibimden okulda dahi ödün vermeyip sinavlara girmedim. assembly hic yazmadim. var variable yani degiskenin kendisi dir. po...
gönderen ikra
29 Haz 2021 08:56
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 1989

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

FList.AddObject(AName, TObject(@AKoordinat));
Seklinde pointer üzerinden cast etmeyi dene.
gönderen ikra
29 Haz 2021 03:33
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 1989

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

Cepten yaziyorum, pc karsisinda degilim. Olmasi gerek. Vakit bulabilirsem dener dönüs yaparim.
gönderen ikra
29 Haz 2021 03:02
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 1989

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

Kod: Tümünü seç

// Set
FList.AddObject(AName, TObject(AKoordinat);

// Get
AKoordinat := TKoordinat(FList.Objects[Index]);
gönderen ikra
29 Haz 2021 02:38
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 1989

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

Add(const AName: string; AKoordinat: TKoordinat); begin FList.AddObject(AName, AKoordinat); end; Get(const AName: String; var AKoordinat: TKoordinat): Boolean; var Index: Integer; begin Index := FList.IndexOf(AName); Result := Index > -1; if Result then AKoordinat := Flist.Objects(Index); end; Get(...
gönderen ikra
03 Nis 2021 08:17
Forum: Programlama
Başlık: Hind width ayarini yapabilirmiyiz?
Cevaplar: 5
Görüntüleme: 718

Re: Hint width ayarını yapabiliyormuyuz?

type TExHint = class(THintWindow) public constructor Create(AOwner: TComponent); override; function CalcHintRect(MaxWidth: Integer; const AHint: String; AData: Pointer): TRect; override; end; constructor TExHint.Create(AOwner: TComponent); begin inherited Create(AOwner); with Canvas.Font do begin N...
gönderen ikra
26 Mar 2021 10:58
Forum: Programlama
Başlık: dll metod speed problem
Cevaplar: 2
Görüntüleme: 540

Re: dll metod speed problem

Tickcount‘a güvenmiyorum desem abartmis olur muyum :) Tek cekirdek üzerinden bir seneryo yazalim. Her 20ms gibi bir zaman araliginda process/thread token aldigini varsayarsak, birinci test‘deki islemci yükü ve token süreci ile, ikinci test‘deki islemci yükü ve token süreci ayni olmayabilir. Bu da so...