Kod: Tümünü seç
type
TSabır = class
class procedure Çek;
end;
class procedure TSabır.Çek;
begin
WriteLn('Allahım sen sabır ver!');
end;
begin
TSabır.Çek;
end.
Kod: Tümünü seç
type
TSabır = class
class procedure Çek;
end;
class procedure TSabır.Çek;
begin
WriteLn('Allahım sen sabır ver!');
end;
begin
TSabır.Çek;
end.
SimaWB yazdı: ↑19 Ara 2017 09:49 Ben şu şekilde kullanmıyorum:Kod: Tümünü seç
type TSabır = class class procedure Çek; end; class procedure TSabır.Çek; begin WriteLn('Allahım sen sabır ver!'); end; begin TSabır.Çek; end.
SimaWB yazdı: ↑19 Ara 2017 09:49 Ben şu şekilde kullanmıyorum:Kod: Tümünü seç
type TSabır = class class procedure Çek; end; class procedure TSabır.Çek; begin WriteLn('Allahım sen sabır ver!'); end; begin TSabır.Çek; end.