zahlen in stringgrid speichern

[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 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