string alanı tip dönüşümü nasıl yaparız (Tform Tipine)
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
string alanı tip dönüşümü nasıl yaparız (Tform Tipine)
text olarak girilen değerleri delphide Tform,TIbdataset gibi
değişkenlere nasıl dönüştürürüm
veya böyle birşey olabilme ihtimali varmı
Vereceğiniz cevaplar için şimdiden teşekkürler
değişkenlere nasıl dönüştürürüm
veya böyle birşey olabilme ihtimali varmı
Vereceğiniz cevaplar için şimdiden teşekkürler
- hacker_10-ur
- Üye
- Mesajlar: 27
- Kayıt: 05 Oca 2008 10:05
- sabanakman
- Kıdemli Üye
- Mesajlar: 3079
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Bir deneme yaptım ve RegisterClass prosedürü ile FindClass fonksiyonları iş gördüler . Şöyleki, her formun kodlarında en alta aşağıdaki gibi sınıfları kayıt ettim.
Unit1.pasUnit2.pas..vs.vs.
Şimdi asıl konu ise ana formun uses satırına hiç bir formu eklemeden açan şu kodu yazdım ve çalıştı.İşin püf noktası uses'a hiç ekleme yapmadan RegisterClass ile kayıt edilen tüm formlar açılabilsede bu unitlerde tanımlı sınıflar ve özellikleri dışında kalan değişkenlere erişilemiliyor. Asıl konu sınıfları isimleri ile elde etmek olduğundan bu iyi bir örnek olsa gerek.
Unit1.pas
Kod: Tümünü seç
initialization
RegisterClass(TForm1);
end.
Kod: Tümünü seç
initialization
RegisterClass(TForm2);
end.
Şimdi asıl konu ise ana formun uses satırına hiç bir formu eklemeden açan şu kodu yazdım ve çalıştı.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
with TFormClass(FindClass('TForm2')).Create(Application) do begin
Show;
end;
end;
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
- sabanakman
- Kıdemli Üye
- Mesajlar: 3079
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
- sabanakman
- Kıdemli Üye
- Mesajlar: 3079
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)