Stringgrid

[Anatol]

Liebes Forum

erneut bin ich mit einem kleinen problem konfrontiert, bei dem Ihr mir sicher helfen könnt. Ich will ein StringGrid erzeugen, bei dem während der Runtime Anzahl Spalten und Zeilen definiert werden können:

[img src="http://members.v3space.com/anatol1/stringgrid.jpg" border="0" alt="IPB Image" /]

Hier der Quelltext dazu:

var spalten, zeilen, code: Integer;

procedure umwandeln;
begin
  with Form1 do
  begin
    Val(Edit1.text, spalten, code);
    Val(Edit2.text, zeilen, code);
  end
end;

procedure anpassen;
begin
  StringGrid1.ColCount:=spalten;
  StringGrid1.RowCount:=zeilen;
end;


procedure TForm1.EditKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  umwandeln;
  anpassen;
  StringGrid1.repaint;
end;

end.

Starte ich das Programm und gebe einen Wert ein, dann erscheint folgende Fehlermeldung:

[img src="http://members.v3space.com/anatol1/fehlermeldung.jpg" border="0" alt="IPB Image" /]

Wo könnte der Hund begraben liegen?

Gruss, Anatol

[Anatol]

Hier die Fehlermeldung, die nach der Eingabe eines Wertes kommt:

"Project test_grid.exe raised exception class EAccessViolation with message 'Access violation at adress 0044B90A in module 'test_grid.exe'. Read of adress 00000204'. Process stopped. Use Step or Run to continue."

Bin weiterhin für jeden Hinweis dankbar!

Gruss, Anatol

[Slayer]

hä ? was machstn du da für verrenkungen ?

stringgrid1.RowCount := strtoint ( edit1.text ) ;
stringgrid1.colCount := strtoint ( edit2.text ) ;

was willst du mehr ?

[Anatol]

Vielen Dank!

Wie war das noch mit dem Wald und den Bäumen...

Gruss, Anatol

[BillyBuh]

Versuchs mal mit einem Button, der auf Kommando die Spalten und Zeilen ändert!