2 Stellen im Stringgrid

[Hansa]

Hi,

in einem Stringgrid werden nur ganze Zahlen angezeigt, bzw. wird z.B. 11.2 dargestellt. Wie kann man das als 11.20 darstellen ? Offensichtlich werden die Nullen abgeschnitten.

[himitsu]

Wie wird denn dein StringGrid mit den Werten gefüllt ?

Es gibt zwar Möglichkeiten, das nachträglich zu ändern, aber das gleich richtig füllen zu lassen ist doch besser und eleganter.

[Hansa]

Das sind überrwiegend Datenbankfelder, die mit 2 Nachkommastellen definiert sind.

[kiar]

matze schau hier

http://www.delphipraxis.net/internal...ght=stringgrid

raik

[Hansa]

Es geht nicht um die Eingabe, sondern die ANZEIGE ! Die sind R/O

[kiar]

hallo hansa (diesmal richtig)

ich habe fogendes gemacht und es hat mir den string richtig angezeigt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
      s:= '11.20';
      stringgrid1.Cells[1,1]:= s;
end;

es kann natürlich sein, das aus deiner datenbank aus perfomancegründen nur der wert 11.2 ausgegeben wird.

[Hansa]

klaro, da steht die 0 ja schon drin. Mach die mal weg. :lol: In meiner Datenbank steht übrigens 11,20 drin !! Delphi entfernt einfach die Null. Bei 11,00 wird 11 angezeigt. Wahrscheinlich muß ich Format benutzen, wie würde es denn damit gehen ? Eventuell mit Tausenderpunkten? :gruebel:

[kiar]

so bringt es den erfolg

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a:double;
    s:string;
begin
      a:= 11.2;
      str(a:4:2,s);
      stringgrid1.cells[1,1]:=s;
end;

raik

[r_kerber]

Hallo Hansa,

dann schau Dir doch mal die Format-Funktion an. Da kannst Du (fast) Alles nach Deinen Wünschen formatieren!

[Hansa]

Komme wohl nicht dran vorbei, wegen dem hier:

Delphi-Quellcode:

function LeseFeld (d : TpFIBDataSet;st : string) : string;
begin
  LeseFeld := d.FieldByName(st).AsString;
end;

D.h. ich behandele die Felder immer als strings und übergebe den Tabellen/Feldnamen als Parameter. Das mit dem Str geht deshalb nicht. :wall: Für das Format bin ich anscheinend zu blöd. Hat einer ein Beispiel, ähnlich dem von Raik ?

[r_kerber]

Mal ungeprüft:

Delphi-Quellcode:

function LeseFeld (d : TpFIBDataSet;st : string) : string;
begin
  LeseFeld := Format ('%f8.2', [d.FieldByName(st).Value]);
end;

Und den Formatstring kannst Du natürlich zur Laufzeit dynamisch erzeugen.

[kiar]

kleiner fehler ?

Delphi-Quellcode:

 LeseFeld := Format ('%f8.2', [d.FieldByName(st).Value]);

es muss so sein

Delphi-Quellcode:

LeseFeld := Format ('%8.2f', [d.FieldByName(st).Value]);

[r_kerber]

Zitat:

Zitat von kiar

kleiner fehler ?

Jep, bin C++-geschädigt. :oops:

[Hansa]

Die Format Funktion treibt mich noch in den Wahnsinn. :wall: Jetzt kommt die Fehlermeldung : "EConvertError Format %8.2f invalid or incompatible with argument" Die Funktion soll ja einen String zurückliefern. Kann ich nicht statt .Value .AsString verwenden oder was ist da falsch ?

[r_kerber]

Moin Hansa,

von welchem Typ ist FieldByName(st). Zu diesem Typ passend mzußt Du natürlich den Formatstring verwenden.
Unterschied Value <-> AsString: Mit alue erhältst Du den Feldwert in passendem Format (Doule, Integer, ...). AsString konvertiert den Feldwert in eine Zeichenkette und hackt dabei dann die Nullen nach dem Komma ab. Hierfür wird eine Standardkonvertierung verwendet. Auf diese Formatierung kannst Du aber auch einen gewissen Einfluss nehmen. Schau Dir mal die Eigenschaften Precision und DisplayFormat an.

[Hansa]

Das Thema ist immer noch nicht erledigt. Ich habe jetzt fast alle DB-Komponenten eliminiert und den Hasen gegeben. :mrgreen:

In einem StringGrid sollen nun die Zahlen rechtsbündig angezeigt werden. Mit folgenden zusammengesuchten Prozeduren:

Delphi-Quellcode:

procedure TvorlArtAusg.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);

procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect;
    const Text: string);
  const
    DY = 2;
  var
    S: array[0..255] of Char;
  begin
    with Stringgrid, ACanvas, ARect do begin
      ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
            Length(Text), nil);
    end;
  end;

procedure Display(StringGrid: TStringGrid; const S: string);
begin
  WriteText(StringGrid, StringGrid.Canvas, Rect, S);
end;

begin
  if (ACol = 1) or (ACol >= 4) then
    Display(StringGrid1, StringGrid1.Cells[ACol, ARow]);
end;

Jetzt ist es zwar rechtsbündig, aber die Nullen am Ende werden nicht angezeigt und ich weiß auch nicht, wo ich da eingreifen soll. Die Strings sind alle als Const deklariert.

[grayfox]

hallo hansa!
sieh dir das mal an:

Delphi-Quellcode:

procedure TAuftragDlg.PosGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  CellText: String;
  tw: ShortInt;
  Zahlwert: Double;
begin
  with Sender as TStringGrid do begin
    if not (gdFixed in State) then begin
      if (aRow mod 2 = 0) then begin
        Canvas.Brush.Color:= $00FDFACE;
        Canvas.Font.Color:= clBlack
      end else begin
        Canvas.Brush.Color:= $00CEFFFD;
        Canvas.Font.Color:= clBlack
      end
    end else begin
      Canvas.Brush.Color:= clBtnFace;
      Canvas.Font.Color:= clBlack;
    end;

    CellText:= trim(Cells[aCol,aRow]);

    if (aRow > 0) and (aCol in [0,4..17]) then begin
      try
        if CellText= '' then
          Zahlwert:= 0
        else
          Zahlwert:= StrToFloat(CellText);
        case aCol of
          4,7,8,9,12,15      : FNumberFormat:= '#';
          5                  : FNumberFormat:= '#0.000';
          6,10,11,13,14,16,17: FNumberFormat:= '#,##0.00';
        end;

        if Zahlwert > 0 then
          CellText:= FormatFloat(FNumberFormat,ZahlWert)
            else
          CellText:= '';
      except
        CellText:= '';
      end;
    end;

    if Cells[1,aRow] = '     - ' then
      Cells[1,aRow]:= '';
    if Cells[1,aRow] <> '' then begin
      tw:= Canvas.TextWidth(CellText);
      Canvas.FillRect(Rect);

      if (aRow = 0) then
        Canvas.TextOut(Rect.Left + (Rect.Right-Rect.Left-tw) div 2, Rect.Top+2, CellText)
      else if aCol in [0,4..17] then
        Canvas.TextOut(Rect.Right -2 - tw, Rect.Top + 2, CellText)
      else
        Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, CellText);
    end;
  end;
end;

hier gehts um ein stringgrid mit einer ganzen menge spalten, mit 3 verschiedenen zahlenformaten.
das ganze wird dann noch entweder links, rechts oder mittig ausgerichtet.

vielleicht ist es etwas umständlich geschrieben, aber es funktioniert ;)

mfg, stefan

[kiar]

hallo hansa,

habe mir nur den letzten beitrag durchgelesen.

warum nicht so:

Delphi-Quellcode:

procedure TfrmMain.StringGrid1GetEditMask(Sender: TObject; ACol,
                                          ARow: Integer;
                                          var Value: String);

begin
s:= ('99.99 - 99.99');s1:= ('99.99 - 99.99');
end;

und im drawcell aufrufen.

raik

schlag mich,wenn ich zu faul war alles zu lesen. :wall:

[Hansa]

Zitat:

Zitat von kiar

habe mir nur den letzten beitrag durchgelesen.
...schlag mich,wenn ich zu faul war alles zu lesen. :wall:

keine Angst, so schnell nicht. :lol: Geht trotzdem nicht. :gruebel:

[Robert_G]

Dein Dataset weiß welches Format die Spalte hat.
Der Rest ist nur noch rumprobieren :mrgreen:

(Außerdem Delphi OH durchsuchen nach "FloatToStrF")

Dein Dataset wird wahrscheinlich die Methoden von einem der beiden Beispiele verwenden:

ADOQuery (ADO)

Delphi-Quellcode:

 While Col < FieldCount Do
  Begin
    If FieldDefs[Col].Precision > 0 Then
      Grid.Cells[Col + Grid.FixedCols, Row] := 
        FloatToStrF(Fields[Col].AsFloat, ffNumber, FieldDefs[Col].Precision, FieldDefs[Col].Size)
    Else
      Grid.Cells[Col + Grid.FixedCols, Row] := Fields[Col].asString;
    inc(Col);
  End;

OracleQuery (DOA)

Delphi-Quellcode:

  While Col < FieldCount Do
  Begin
    If FieldPrecision(Col) > 0 Then
      Grid.Cells[Col + Grid.FixedCols, Row] :=
        FloatToStrF(FieldAsFloat(Col), ffNumber, FieldPrecision(Col), FieldScale(Col))
    Else
      Grid.Cells[Col + Grid.FixedCols, Row] := FieldAsString(Col);
    inc(Col);
  End;

Nachtrag: Row soll die Zeile des Grids sein in dem sich die Query befindet
zum Bsp.:

Delphi-Quellcode:

Row := Grid.FixedRows;

With Query Do
Begin
  While not Eof  do
  Begin
    ...
    inc(Row);
  End;
End;

Edit2: Letzten Nachtrag korrigiert

[Hansa]

Nene, viel zu kompliziert. Ich entkoppele nicht die Datasets von der Anzeige und nutze sie dann doch dafür. Der Fehler ist bestimmt einfacher zu finden, nur sehe ich nicht wo.

Delphi-Quellcode:

       st := LeseFeld (EingDM.ArtDS,'PG');
showmessage ('*'+st+'*');
      StringGrid1.Cells [4,i] := Format ('%8.2f',[st]);

Die Funktion LeseFeld liefert mir einen String. Intern werden da offensichtlich die Nullen weggelassen. Soll mir auch egal sein. Das Stringgrid hat Recht : die sind überflüssig. Ich brauche sie in diesem Fall nur für eine bessere Anzeige. Die Frage lautet also nur : wie bringe ich eine Zahl dazu, immer ihre 2 Nachkommastellen anzuzeigen, selbst wenn sie Null sind ?

[Robert_G]

Da du ein StringGrid und kein prökeliges DBGrid verwendest, musst du die Werte doch sowieso "zu Fuss" eintragen.
Meine Codeschnipsel machen das unter Berücksichtigung des Zahlenformates in der Datenbank.
Was ist denn daran zu kompliziert? :gruebel:

[Hansa]

Kompliziert ? Nichts ist kompliziert. :mrgreen: Die DB interessiert nicht. Ich habe drei Zahlen : 10.00, 9.60, 22.22 Woher ist egal. Im Grid wird angezeigt : 10, 9.6, 22.22. Deshalb will ich im OnDrawCell diese Darstellung mit einem Format Befehl anpassen. Früher hat man ganz einfach

Delphi-Quellcode:

writeln (r:8:2);

geschrieben und basta. Das dürfte also kein Problem sein.

[Robert_G]

Na denn nochmal :arrow: "FloatToStrF" + Delphi OH

[Hansa]

so geht das :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 9.60;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage (FloatToStrF(i,ffFixed,8,2));
end;

UNd das wirft das nächste Problemchen auf. 8)