hallo alle miteinander.
wir haben in informatik ein programm bekommen, in der per zufall die umsätz von verschiedenen firmen ausgegeben werden.
nun sollen wir herausfinden, welche firma den kleinsten umsatz macht. dabei müssen wir es irgendwie schaffen ein stringgrid feld als ausgabe in unser edit-feld zu bekommen (ich hoffe ihr wisst was ich meine). nur irgendwie scheiter ich daran.
kann mir jemand helfen?
danke und noch einen schönen abend wünsche ich
Hi Kristin,
dabei müssen wir es irgendwie schaffen ein stringgrid
feld als ausgabe in unser edit-feld zu bekommen (ich hoffe ihr
wisst was ich meine). nur irgendwie scheiter ich daran.
Ich hoffe ich hab das richtig verstanden … Du hast einen TStringGrid mit mehreren Spalten, eine davon ist der Firmenumsatz, und den kleinsten Wert dieser Spalte willst Du in ein TEdit schreiben, richtig?
TStringGrid hat in der Standardausführung keine Sortierung, also musst Du die Zeilen in einer Schleife durchlaufen und den kleinsten Wert finden. Das machst Du, indem Du vom Wert 0 ausgehend immer den kleineren übernimmst, wenn Du beim Durchlauf antriffst.
Sagen wir Dein Stringgrid (StringGrid1) hat 2 Spalten - die 1.Spalte (0) enthält den Firmennamen, die 2.Spalte (1) den Umsatz. Eine Möglichkeit, den kleinsten Umsatz in das Edit (Edit1) zu bekommen, wäre folgende:
procedure TForm1.Button1Click(Sender: TObject);
var
ARow, MinSales: Integer;
begin
MinSales := 0;
for ARow := 0 to StringGrid1.RowCount - 1 do
begin
if (MinSales = 0) or (MinSales \> StrToIntDef(StringGrid1.Cells[1, ARow], 0)) then
MinSales := StrToIntDef(StringGrid1.Cells[1, ARow], 0);
end;
Edit1.Text := 'Kleinster Umsatz: ' + IntToStr(MinSales);
end;
Schönen Gruß,
Rudy