Hallo zusammen
bei folgendem Codeteil bekomme ich die Meldung : Error: illegal expression.
Delphi-Quellcode:
procedure THauptform.HauptbildClick(Sender: TObject);
var
spalte, reihe: Longint;
konto,suchbegriff : string;
Cursorpos: TPoint;
Hauptforml :longint;
begin
Hauptforml := Hauptform.top;
spalte := mouse.cursorPos.x;
spalte := spalte - Hauptform.left;
spalte := spalte - hauptbild.left-5;
reihe := Mouse.Cursorpos.Y;
reihe := reihe - Hauptform.top;
reihe := reihe - hauptbild.top -60;
spalte := spalte div 9;
reihe := reihe div 13;
suchbegriff := bildsch[spalte,reihe].name;
anfrage(suchbegriff);
if (anfrageergebnis = 'nicht_gefunden'){and (funktionsnummer <> 0) }then
begin
//showmessage('Dieses Feld ist keinem Element zugeordnet');
exit;
end ;
case funktionsnummer of
1 : {Ziel Zugstrasse}
begin
if akt_element^.zug_zielfaehig = true then
begin
funktionsnummer := 0;
Statuszeile.SimpleText := '' ;
//alle_ziele_loeschen;
akt_element^.ziel_gesetzt := true;
---------> zugfahrstrasse;
end
else
begin
Statuszeile.SimpleText := 'Dieses Element ist nicht als Ziel für Zugfahrten erlaubt (nur Signale)' ;
//showmessage('Dieses Element ist nicht als Ziel für Zugfahrten erlaubt (nur Signale)');
timer1.enabled := true;
end
end;
// Der Programmteil geht hier noch weiter
Die Procedure "zugfahrstrasse" (durch den langen Pfeil gekennzeichnet)ist in der
Unit vorhanden, richtig deklariert, und erwartet auch keine Parameter.
Was kann an diesem Aufruf illegal sein?
Gruß Fritz