Jump to content
Forum Windows-az.com

Delphi 7


DarK_MoNSteR

Recommended Posts

Proqramlar telegramda

Mənim başıma gəlib. yuxarıda linkini verdiyim delphi 7-ni silib 2012 yazdım. işləmədi. embarcaderonun faylları ilə delphinin faylları biribinə qarışmışdı. heç bir proekti aça bilmədim. gəl sənə xe2 update 4 torrent linki verim. onu yoxla. həm öyrənərsən, həm də (ümid edirəm ki) problemin çıxmaz.. istəsən ...yüklə...

Link to comment
Share on other sites

internetdə belə bir şey tapdım..

əvvəlcə bunu yaz yoxla

 

unit common;

 

interface

 

uses dialogs, sysutils;

 

procedure ShowMessage(const value : string) ; overload;

procedure ShowMessage(const value : integer) ; overload;

procedure ShowMessage(const value : extended) ; overload;

procedure ShowMessage(const value : boolean) ; overload;

 

implementation

 

//displays a string in a dialog box

procedure ShowMessage(const value : string) ;

begin

Dialogs.ShowMessage(value) ;

end;

 

//displays an integer in a dialog box

procedure ShowMessage(const value : integer) ;

begin

ShowMessage(IntToStr(value)) ;

end;

 

//displays a float in a dialog box

procedure ShowMessage(const value : extended) ;

begin

ShowMessage(FloatToStr(value)) ;

end;

 

//displays a boolean in a dialog box

procedure ShowMessage(const value : boolean) ;

begin

ShowMessage(BoolToStr(value, true)) ;

end;

 

end.

 

Sonra sil bunu yoxla gör yenə səhv göstərir?!

 

 

uses dialogs, common;

 

begin

ShowMessage(2008) ;

ShowMessage(true) ;

end;

Link to comment
Share on other sites

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...