StringGrid Zellen wie Excel Kommastellen unterdrücken

[Chemiker]

Hallo Stecky2000,

ich würde versuchen, das mit der TStringGrid.Object – Eigenschaft zu lösen, damit ist es möglich hinter jeder Zelle ein Object dranzuhängen. In deinem Fall währe das der original Wert.

Bis bald Chemiker

[mkinzler]

Ich dachte da eher an einen Array o.ä.

[himitsu]

oder am einfachsten OwnerDraw ... in den Zellen steht dann der richtige Wert, aber angezeigt/gezeichnet wird nur der per Format gerundete.

[grenzgaenger]

bau dir dich am besten 'n schönes objekt auf... in dem du die daten mit den algos speicherst. diese objekte hänst du in eine ObjectList. beim aufbau der objekte schreibst du zusätzlich die addresse in eine zeile/spalte. die berechnungen führst du dann easy über die objekte durch und scheibst nur die ausgabe ins stringgrid.

ist easy, zuverlässig und hinterlässt keine speicherlöcher :-)

[Stecky2000]

Schwer zu verdauen , Eure Kost....

Ich werde mal sehen, was ich hin bekomme. Werde mich mal in Ownerdrw einlesen und schauen, ob ich damit fertig werde.

Array ist auch eine Alternative. Ich hatte damit bereits experimentiert.

[Chemiker]

Hallo Stecky2000,

OwnerDraw ist der Überbegriff, bei StringGrid ist die Suche nach OnDrawCell erfolgreicher.


Bis bald Chemiker

[Stecky2000]

So Jungs, sorry, hab ein wenig länger gebraucht um mich zu melden.

Ich hatte bereits heraus gefunden, das Ownerdraw nur der überbegriff war.
Hab das Problem damit gelöst, war gar nicht so schwer ;-)

Habs so gemacht:

Delphi-Quellcode:

procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     with (Sender as TStringGrid) do
          begin
               // Erste Reihe nicht einfärben
               if (ARow = 0) then
               Canvas.Brush.Color := clBtnFace
               else
                   begin
                        if (cells[ACol, ARow] <> '') and (cells[ACol, ARow] <> ' ') then
                            Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Format('2.2f', [StrToFloat  (cells[acol, arow])]));
                   end;
          end;
end;

Danke Euch für die Hilfe. Ich werde bestimmt mit mehr Fragen kommen ;-)