Saoalasınız arkadaşlar pascaldan demekki burası farklıymış :D, memik hocam sayfaları inceliyorum siz de sağolun.. echo "imzanız zel karakter içermemelidir";

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 thenkomut1elsekomut2end if ya da php de; if(a 0) 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 sondaend;end;end. olcak. screw you guys! i"m goin" hoooome!

: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class procedure FormCreate ; private public end;var Form1: TForm1; dogum_yili:string;implementation procedure TForm1. FormCreate ;begin dogum_yili:=inputbox ; if strtoint <1990 thenbegin show; canvas. textout(100,200,'büyükmüşsün')end elseBegin show; canvas. textout(100,200,'küçükmüşsün');end;end;end. Sevin gayrı :) olm hangi ara yazdın a. q bari syleseydin uğraşmazdım :P

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class procedure FormCreate ; private public end;var Form1: TForm1; dogum_yili:string;implementation procedure TForm1. FormCreate ;begin dogum_yili:=inputbox ; if strtoint <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 byle... echo "imzanız zel karakter içermemelidir";

Delphi'ye yeni başlayanlar için kaleme aldığım 3 yazı var şu linkte. http://www.memikyanik.com/dersler/dersler.htmGeçen yıl bu yazıların devamını getirememiştim. Ama yine de başlangıç için fikir veriyor bu 3 yazı. Memik YANIK - www.memikyanik.com

Haci sen emeklemeden kosarsan is olmaz. Dili ogrenmen gerekir once. Dilin kurallarini yalayip yut sonra gozun kapat siir yazar gibi code yaz. Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

procedure TForm1. FormCreate ;begin dogum_yili:=inputbox ; if strtoint <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')end elsebegin show; canvas. textout(100,200,'küçükmüşsün');end; <<<<<< bu end else den sonraki beginin endi end; <<<<<< buda formcreateden sonraki beginin endi

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class procedure FormCreate ; private public end;var Form1: TForm1; dogum_yili:string;implementation procedure TForm1. FormCreate ;begin dogum_yili:=inputbox ; if strtoint <1990 thenbegin show; canvas. textout(100,200,'büyükmüşsün')end elseBegin show; canvas. textout(100,200,'küçükmüşsün');end;end;end. Sevin gayrı :)

al aq unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class procedure FormCreate ; private public end;var Form1: TForm1; dogum_yili:string;implementation procedure TForm1. FormCreate ;begindogum_yili:=inputbox ;if strtoint <1990 thenbeginshow; canvas. textout(100,200,'büyükmüşsün')endelseBeginshow;canvas. textout(100,200,'küçükmüşsün');end;end;end.

Visual Basic 6, Delphi 7 artık bitti.

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class procedure FormCreate ; private public end;var Form1: TForm1;implementation procedure TForm1. FormCreate ;vardoğ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 ; if strtoint <1990 then show; canvas. textout(100,200,'büyükmüşsün') else show; canvas. textout(100,200,'küçükmüşsün');end;end.