ALLAH razı olsun üstat abilerim programı çalıştırabildim sonunda Yeni wep sitem www.bilisimbilim.com inş reklama girmez::). Yaw reklamsa syleyin kaldırız. her türlü haberi bulabilirsiniz

showmessage lardan sonra ; koymayı unutmuşsun

procedure TForm1. Button1Click ;varno, no2, no3, soz, soz2:integer;ort:Real;beginif (Edit1. Text='') or (Edit2. Text='') or (Edit3. Text='') or (Edit5. Text='') or (Edit6. Text='') thenbeginShowMessage endelsebeginno:=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 ;if ort<45 thenbeginShowMessage endelsebeginShowMessage if ort>100 thenShowMessage('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 syleyin kaldırız. her türlü haberi bulabilirsiniz

procedure TForm1. Button1Click ;varno, no2, no3, soz, soz2:integer;ort:Real;beginif (Edit1. Text='') or (Edit2. Text='') or (Edit3. Text='') or (Edit5. Text='') or (Edit6. Text='') thenbeginShowMessage ;endelsebeginno:=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 ;if ort<45 thenbeginShowMessage ;endelsebeginShowMessage ;if ort>100 thenShowMessage('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!