folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Delphi"De Yardıma İhtiyacım Var



Delphi"De Yardıma İhtiyacım Var

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    doktordanger
    doktordanger's avatar
    Kayıt Tarihi: 13/Eylül/2007
    Erkek

    procedure TForm1.Button1Click(Sender: TObject);
    var
    no,no2,no3,soz,soz2:integer;


    ort:Real;
    begin
    if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or (Edit5.Text='') or (Edit6.Text='') then
    begin
    ShowMessage('Adamın asabını bozma. Notları Tam gir lan')
    end
    else
    begin
    no:=StrToInt(Edit1.Text);
    no2:=StrToInt(Edit2.Text);
    no3:=StrToInt(Edit3.Text);
    soz:=StrToInt(Edit5.Text);
    soz2:=StrToInt(Edit6.Text);
    ort:=(no+no2+no3+soz+soz2)/5;
    Edit4.Text:=FloatToStr(ort);
    if ort<45 then
    begin
    ShowMessage('Zayıff dostum')
    end
    else
    begin
    ShowMessage('aferin lan zayıf değil')

    if ort>100 then
    ShowMessage('lan oğlum 100den büyük not girmee')





    end;
    end;
    end;

    end.

     

     

    s.a abilerim ben bunu çalıştırmaya kalkınca  şöyle hata veriyoo 

     

    Missing operator or semicelon.

     

     

    Yeni wep sitem www.bilisimbilim.com inş reklama girmez::).Yaw reklamsa söyleyin kaldırız. her türlü haberi bulabilirsiniz
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    tetris
    tetris's avatar
    Kayıt Tarihi: 26/Mayıs/2007
    Erkek
    showmessage lardan sonra ; koymayı unutmuşsun
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    İnce Memed
    ComputerWolf
    ComputerWolf's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 26/Mart/2003
    Erkek

    procedure TForm1.Button1Click(Sender: TObject);
    var
    no,no2,no3,soz,soz2:integer;


    ort:Real;
    begin
    if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or (Edit5.Text='') or (Edit6.Text='') then
    begin
    ShowMessage('Adamin asabini bozma. Notlari Tam gir lan');
    end
    else
    begin
    no:=StrToInt(Edit1.Text);
    no2:=StrToInt(Edit2.Text);
    no3:=StrToInt(Edit3.Text);
    soz:=StrToInt(Edit5.Text);
    soz2:=StrToInt(Edit6.Text);
    ort:=(no+no2+no3+soz+soz2)/5;
    Edit4.Text:=FloatToStr(ort);
    if ort<45 then
    begin
    ShowMessage('Zayiff dostum');
    end
    else
    begin
    ShowMessage('aferin lan zayif degil');

    if ort>100 then
    ShowMessage('lan oglum 100den büyük not girmee');

     

    calistir simdi + olarak Edit1...6'nin Text ozelliklerini degistir ,formcreate de default olarak Edit1 ,Edit2 , Edit3 olarak geliyor ,Text ozelliklerini bos birak ,yoksa direk button1.click olayini cagirdiginda hata alirsin.

    Hep denedin. Hep yenildin. Olsun yine dene , yine yenil ama daha iyi yenil !
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    doktordanger
    doktordanger's avatar
    Kayıt Tarihi: 13/Eylül/2007
    Erkek
    ALLAH razı olsun üstat abilerim programı çalıştırabildim sonunda
    Yeni wep sitem www.bilisimbilim.com inş reklama girmez::).Yaw reklamsa söyleyin kaldırız. her türlü haberi bulabilirsiniz
    Reply With Quote Alıntı yap
Toplam Hit: 2541 Toplam Mesaj: 4