Forum: Programmieren allgemein
by BadenPower,
20. Feb 2015
Da hast Du allerdings recht.
Aber der Lerneffekt für "Greife nie auf Dinge zu, die eventuell nicht da sind." wäre größer gewesen.
Jetzt hat er eine Lösung und weiss warscheinlich gar nicht, wo ohne die If-Abfrage das Problem gewesen wäre.
Forum: Programmieren allgemein
by BadenPower,
20. Feb 2015
Spielverderber.
Ich wollte doch nur auf die nächste Frage warten, die dann gelautet hätte:
"Ich bekomme eine Zugriffverletzung" in der Zeile:c := s;
Forum: Programmieren allgemein
by BadenPower,
20. Feb 2015
Funktioniert aber nur, wenn das 1. Zeiche von P_0_0.Caption ein 'F', '_' oder '?' ist.
Wenn das 1. Zeichen auch etwas anderes sein konnte, dann so:
procedure TForm1.P_0_0MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
s: string;
c: char;
begin