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:

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:

Delphi-Quellcode:

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 :mrgreen: 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.

[tobiasw]

colcount ist 1 und Row Count 10

hat noch jemand eine Idee
@joe finde ich ist doch ziemlich kompliziert

Gruß

[Christian Seehase]

Moin Joe,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Zitat:

Zitat von Joe24

Danke, die Tags habe ich jetzt auch entdeckt.

Dann setz' sie doch auch ein ;-)

Deinen Beitrag kannst Du mit dem Edit-Button bearbeiten.
Danke.

[kiar]

tobias,

einfacher, als ich es oben geschrieben habe geht es wirklich nicht,
und nun zu deiner überrraschung es funktioniert auch noch.

raik

[tobiasw]

dann poste doch bitte mal deinen gesamten code. Der Code von Joe funktioniert schonmal. Nur weiß ich nicht wie ich dort dann ein Meldungsfenster machen soll wenn die Eingabe der Zahlen größer als 10 ist.

Gruß

[Joe24]

So, jetzt mit implementierten "Zahlen > 10"-Filter!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  try 
    if StrToInt( Edit1.Text) > 10 then
      MessageBox( 0, 'Es werden keine Zahlen > 10 akzeptiert!','HINWEIS',48) else
    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',16);
  end; 
end; 

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

[tobiasw]

wie kann ich jetzt die Zahlen noch sortieren lassen in auf, und absteigender Reihenfolgen

Gruß

[Joe24]

Du kannst die Einträge der Spalte x mit StringGrid.Cols[ x] einer Instanz
von TStringList zuweisen, mit StringList.Sort sortieren und die sortierte
StringList wieder an StringGrid.Cols[ x] zuweisen. Das Ereignis
StringGrid.OnSetEditText kann dazu genutzt werden.



...ansonsten z.B. mit dem BubbleSort oder QuickSort Verfahren.
Informationen dazu findest du auch in der DP.

[tobiasw]

@joe24 das hast du mich falsch verstanden ich möchte das nicht mehr Zahlen als 10 eingegeben werden können