Probleme mit Format und Widestring

[Igotcha]

Hallo zusammen,

ich arbeite mich gerade im VirtualTreeview ein und stoße dabei auf ein Formatierungsproblem meiner Ausgabe. Kurz zum Hintergrund des VT: Inhalte des Treeviews werden in einem Record gespeichert, in diesem Record ist eine Integer, die ich im Rahmen der Ausgabe als formatierten String darstellen möchte.

In dem Ereignis des VT, welches die Darstellung der Record-Inhalte übernimmt, ist der String(CellText) als Widestring definiert:

Delphi-Quellcode:

procedure TfrmMain.MyTreeGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);

Wenn ich jetzt schreibe:

Delphi-Quellcode:

CellText:=Format('%8.2n', [inttostr(myData.IntWert)]);

Bekomme ich eine "Format invalid"-Meldung

Formatieren möchte ich, dass die Zahl mit Tausender-Punkten ausgegeben wird.

Gruß Igotcha

[sakura]

Das hat nichts mit dem WideString zu tun ;)

Delphi-Quellcode:

CellText:=Format('%d', [myData.IntWert]);

...:cat:...

[Igotcha]

Nee ;-)

Ich möchte z.B. den Int-Wert 10000000 als String in der Form "10.000.000" anzeigen lassen. Der VirtualTV lässt ja nur Strings als Anzeige zu - also muß ich den Int-Wert vorher formatieren.

Das, was Du schreibst, könnte man ja gleich als:

Delphi-Quellcode:

CellText:=IntToStr(myData.IntWert)

schreiben, das nimmt er auch - aber da ist eben keine Formatierung dabei.

Ich denke schon, dass das am WideString liegt, denn wenn ich den Wert in eine Stringvariable formatiere geht es nämlich.

Delphi-Quellcode:

function Format(const Format: string; const Args: array of const): string; overload;

Hat als Rückgabewert eben nur "String" und nicht "WideString".

Oder stehe ich gerade völlig auf dem Schlauch :gruebel:

[Gruber_Hans_12345]

Zitat:

Zitat von Igotcha

Wenn ich jetzt schreibe:

Delphi-Quellcode:

CellText:=Format('%8.2n', [inttostr(myData.IntWert)]);

Bekomme ich eine "Format invalid"-Meldung

Müsste auf jeden Fall eher so heiszen :

Delphi-Quellcode:

CellText:=Format('%8.2n', [myData.IntWert]);

Da %n einen Integer erwartet

Gruss
Hans

[Igotcha]

Zitat:

Zitat von Gruber_Hans_12345

Zitat:

Zitat von Igotcha

Wenn ich jetzt schreibe:

Müsste auf jeden Fall eher so heiszen :

Delphi-Quellcode:

CellText:=Format('%8.2n', [myData.IntWert]);

Da %n einen Integer erwartet

Nö ;-)

"n" besag nur die Formatierung mit Tausender-Punkt und der o.g. Code geht nicht, da Format einen String als Argument erwartet.

[Gruber_Hans_12345]

Zitat:

Zitat von Igotcha

"n" besag nur die Formatierung mit Tausender-Punkt und der o.g. Code geht nicht, da Format einen String als Argument erwartet.

Stimmt auch nicht ganz, hab jetzt nachgesehn ... %n sagt das es eine Kommazahl braucht .... also inetwa so ...

Delphi-Quellcode:

function ....
var temp : double;
begin
  temp := myData.IntWert;
  CellText:=Format('%8.2n', [temp]); 
end;

Ist zwar nicht schön, sollte aber funktionieren

Gruss
Hans

[Stevie]

Wie wär's mit:

Delphi-Quellcode:

Format('%8.2n', [StrToFloat(IntToStr(i))]);

???

[Gruber_Hans_12345]

Zitat:

Zitat von Stevie

Wie wär's mit:

Delphi-Quellcode:

Format('%8.2n', [StrToFloat(IntToStr(i))]);

???

aber auch nicht wirklich schön oder ?

... genau so wenig wie :

Delphi-Quellcode:

Format('%8.2n', [i*1.0])

[Igotcha]

Ja super, so funktioniert es zumindest, obwohl das nicht so ganz schön ist, da ich pro Ansicht so > 16.000 Daten "manipulieren" muss.

Ich habe jetzt statt "Integer" einfach "Double" verwendet. Muss nur mal schauen, ob sich das anderweitig negativ bemerkbar macht.

Danke und Gruß
Igotcha

[Stevie]

Ok, dürfte ein paar Ticks mehr brauchen, aber benutze doch einfach folgende Funktion: :mrgreen:

Delphi-Quellcode:

function IntToFloat(Value: Integer): Double;
begin
  Result := Value;
end;