HATAYI BİR TÜRLÜ ÇÖZEMEDİM LÜTFEN YARDIM EDİN - ÇÖZÜLDÜ !

[SPAWN33]

Selamlar,

Kod: Tümünü seç

procedure TForm1.Timer2Timer(Sender: TObject);
var
a : integer;
begin
for a := 0 to listbox2.Items.count - 1 do
begin
edit1.Text := listbox2.items.strings[a]
if pos(edit1.Text,listbox1.Items.Strings[a]) > 0 then      1. HATA BURDA (104)
Application.MessageBox('YONETIM TARAFINDAN YASAKLANAN SITEYE GIRIS DENENDI' , 'YASAKLI SITE', MB_ICONEXCLAMATION); 2. HATA (105)
end;
end;

kodunda ;
[Error] Unit1.pas(104): Missing operator or semicolon
[Error] Unit1.pas(105): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Hatalarını veriyor yukarda hatanın hangi satırda teşkil ettiğini gösterdim.

[burak_489]

hatadan bir önceki satırda ; yok sanırım.

[CiTiZEN]

Aleykum selam
1. ; eksik
2. appmessagebox kullanım şekli

Kod: Tümünü seç

application.messagebox('içerik','başlık',butonset,iconset); şeklindedir
Application.MessageBox('YONETIM TARAFINDAN YASAKLANAN SITEYE GIRIS DENENDI' , 'YASAKLI SITE', MB_YESNO+MB_ICONEXCLAMATION);

başlığıda değiştirirseniz, kolay gelsin