zahlen in stringgrid speichern

[tobiasw]

hi,

ich gebe zahlen max 10 in ein edit feld ein un klicke dann auf den button in feld übernehmen dann soll er mir die zahlen in einem stringrid anzeigen. Ich habe auch schon etwas Code nur ich komme auf keinen grünen zweig. Vielleicht sieht ja jemand wie ich es richtig machen muss.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl:integer;
var i:string;
begin
i:=Edit1.text;
stringgrid1.cells[1,i]:=inttostr(zahl);
end;

Gruß u. Frohe Weihnachten

[kiar]

hallo tobias,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl
    , i :integer;

begin
i:=StrtoInt(Edit1.text);
stringgrid1.cells[1,i]:=inttostr(zahl);
end;

versuche es mal so.

raik

[tobiasw]

gut danke für deine Antwort

er schreibt mir aber keine Zahl in das Stringgrid. Außerdem sagt er das die variable zahl nicht richtig initalisiert worden ist

[Jasocul]

Zitat von tobiasw:

er schreibt mir aber keine Zahl in das Stringgrid. Außerdem sagt er das die variable zahl nicht richtig initalisiert worden ist

In Zahl steht ja auch noch nichts drin.

[kiar]

hallo,

die musst du schon festlegen:zahl:= 10; sollte helfen

[tobiasw]

gut dann sieht der Code jetzt so aus, zwar kommen keine Fehler aber es geht immer noch nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl,i:integer;

begin
zahl:=10;
i:=StrtoInt(Edit1.text);
stringgrid1.cells[1,i]:=inttostr(zahl);
end;

[kiar]

stimmen deine rows mit der in edit1 einge´benen zahl überein, die darf nämlich nicht größer sein?

edit: kommentiere mal die zweite zeile aus und schreibe statt

Delphi-Quellcode:

stringgrid1.cells[1,i]...

stringgrid1.cells[1,1]...

[Joe24]

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    StrToInt( Edit1.Text);
    with Stringgrid1 do
      begin
        Cells[ 1, stringgrid1.RowCount -1] := Edit1.Text;
        RowCount := RowCount +1;
      end;  
  except
    on EConvertError do
      MessageBox( 0, 'Eintrag ist keine Zahl!','ERROR',0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Stringgrid1.RowCount := 1;
end;

[kiar]

hallo joe24,

erstmal herzlich willkommen in der DP,

und gleich zur mahnung formatiere deinen quelltext bitte mit den delphi tags

[Joe24]

Danke, die Tags habe ich jetzt auch entdeckt.
War schon verwundert darüber, dass mein Beitrag nach dem posten so formlos dargestellt wurde.