zuweisen von TEdits.

[bastischo]

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:

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

[JasonDX]

Zitat:

Zitat von bastischo

Delphi-Quellcode:

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

Du darfst nicht nur den Namen des Edits setzen, sondern du musst das ganze Edit zuweisen:

Delphi-Quellcode:

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

[bastischo]

DAAAAAAAAAAAAAAAAAAAAANKE :dp:
Hier wird man auch immer beraten.

DP lebe hooch.
und du auch :mrgreen: