Hi.
Ich hab mal wieder ein Problem. Ich will ein Sudoku-Programm schreiben. Nun habe ich die Edits mit den Namen Edit+(1-81) und ein array of TEdit[1..9,1..9].
Der Quelltext für das zuweisen sieht folgendermaßen aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var a,b,c:integer;
begin
    c:=1;
    for a:= 1 to 9 do
      begin
      for b:=1 to 9 do
        begin
        Feld[a,b].Name:=('Edit'+inttostr(c));
        c:=c+1;
        end;
      end;
end;

der compiler gibt keine fehlermeldung aber, wenn ich das programm jetzt starte habe ich folgende Fehlermeldung:
Adress violation at adress: 0044F491 in module "Sudoku.exe". Read of adress 00000000

Zitat von bastischo:

Feld[a,b].Name:=('Edit'+inttostr(c));

Du darfst nicht nur den Namen des Edits setzen, sondern du musst das ganze Edit zuweisen:
Feld[a, b] := TEdit(FindComponent('Edit' + IntToStr(c))); FindComponent findet dir eine Komponente, die sich auf dem Formular befindet. Das ganze musst du noch auf TEdit casten und damit dürfte es funktionieren. Allerdings gibts ne schöne Exception wenn Edit# kein TEdit ist

greetz
Mike

DAAAAAAAAAAAAAAAAAAAAANKE
Hier wird man auch immer beraten.

DP lebe hooch.
und du auch