Hallo Leute!
Ich bin noch ziemlich neu hier und programmiere mit Delphi 7 in der Schule.
Unser Projekt ist momentan quasi einen beliebeigen endlichen Automaten zu programmieren, auf Grundlagen einer Automatentabelle.
Nachdem man nun die Anzahl der Zustände und Einwirkungsmöglichkeiten einstellen kann, soll das Programm nun die Eingabe mit dem ersten Zeichen in jeder Zelle
der Tabelle/ des StringGrids vergleichen. Dazu habe ich diese procedure geschrieben:
Delphi-Quellcode:
procedure Eingabe_Reaktion;
var cnt,x,y,x_achse,y_achse:integer;
begin
x_Achse:=form1.StringGrid1.colcount;
y_Achse:=form1.stringgrid1.RowCount;
for cnt:=1 to 5 do //Schleife für Zeichen bei Eingabe
for x:=2 to x_Achse do //Schleife x-Achse
for y:=2 to y_Achse do //Schleife y-Achse
if form1.edit3.Text[cnt]=form1.StringGrid1.cells[x,y][1] //Vergleich
then
form1.Edit4.Text:=form1.edit3.Text[1]; //Ausgabe
end;
Das Problem nun ist: Sie funktioniert nicht. Es kommt jedes Mal die Meldung (wenn ich den Button zum Start drücke):
"
Access Violation at address 00460719 in module 'Project1.exe'. Read of address 00000000"
Kann mir bitte jemand helfen??
LG
Topher