Forum
Aktif konular
Üyeler
Kurallar
Arama
Delphiye Yeni Başladım Ve Bir Sorun Var Delphiye Yeni Başladım Ve Bir Sorun Var
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dogum_yili:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
dogum_yili:=inputbox('deneme','deneme','');
if strtoint(dogum_yili)<1990 then
show;
canvas.textout(100,200,'büyükmüşsün')
else
show;
canvas.textout(100,200,'küçükmüşsün');
end;
end.Hacılar hocalar müridler mürideler burdaki hata nerededir acaba..End aranıyor else bulundu fakat end yok diyor..
end;
end.
end;
end. yaptım gene aynı hata... Sevindirin şu garibanı :( Gayet kolay belki ama kaldım böyle...
-
hocam delphi'den anlamam ama, end; procedure in bitimi sanırım. sende if i kapatmadan procedureü kapatmışsın.ondan kaynaklanıyo sanırım. yani visual basic'te
------------------
if a=0 then
komut1
else
komut2
end if
------------------
ya da php de;
------------------
if(a==0){
komut
}
------------------
yani şu işaretlediğim yerlerin delphi'deki karşılığı nedir bilmiyorum ama anladıgım kadarıyla sorun orda :) anladıgığım kadarıyla en sonda
end;
end;
end.
olcak.
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dogum_yili:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
dogum_yili:=inputbox('deneme','deneme','');
if strtoint(dogum_yili)<1990 then
begin
show;
canvas.textout(100,200,'büyükmüşsün')
end
else
Begin
show;
canvas.textout(100,200,'küçükmüşsün');
end;
end;
end.Sevin gayrı :)
-
procedure TForm1.FormCreate(Sender: TObject);
begin
dogum_yili:=inputbox('deneme','deneme','');
if strtoint(dogum_yili)<1990 thenbegin <<<<=== eğer if else falan kullanıyorsan ve daha sonra 1den fazla satır işlem uygulayacaksan begin .. end içinde yapcan
show;
canvas.textout(100,200,'büyükmüşsün')
endelse
begin
show;
canvas.textout(100,200,'küçükmüşsün');end; <<<<<<=== bu end else den sonraki beginin endi
end; <<<<<<== buda formcreateden sonraki beginin endi
-
FiLoZoF bunu yazdı:
-----------------------------unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dogum_yili:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
dogum_yili:=inputbox('deneme','deneme','');
if strtoint(dogum_yili)<1990 then
begin
show;
canvas.textout(100,200,'büyükmüşsün')
end
else
Begin
show;
canvas.textout(100,200,'küçükmüşsün');
end;
end;
end.Sevin gayrı :)
-----------------------------olm hangi ara yazdın a.q bari söyleseydin uğraşmazdım :P
-
Delphi'ye yeni başlayanlar için kaleme aldığım 3 yazı var şu linkte.
http://www.memikyanik.com/dersler/dersler.htm
Geçen yıl bu yazıların devamını getirememiştim. Ama yine de başlangıç için fikir veriyor bu 3 yazı.
-
Saoalasınız arkadaşlar pascaldan demekki burası farklıymış :D , memik hocam sayfaları inceliyorum siz de sağolun..
-
Haci sen emeklemeden kosarsan is olmaz.Dili ogrenmen gerekir once.Dilin kurallarini yalayip yut sonra gozun kapat siir yazar gibi code yaz.
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);var
doğum yılı:integer; // değişkenler prosedür ile begin arasında kodlanır.... !! var yazdıgı yukardaki var değil onu buraya ekliceksn
begin
dogum_yili:=inputbox('deneme','deneme','');
if strtoint(dogum_yili)<1990 then
show;
canvas.textout(100,200,'büyükmüşsün')
else
show;
canvas.textout(100,200,'küçükmüşsün');
end;
end. -
Visual Basic 6,Delphi 7 artık bitti.
-
al aq
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dogum_yili:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
dogum_yili:=inputbox('deneme','deneme','');
if strtoint(dogum_yili)<1990 then
begin
show;
canvas.textout(100,200,'büyükmüşsün')
end
else
Begin
show;
canvas.textout(100,200,'küçükmüşsün');
end;
end;
end.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla