Texthöhe ermitteln

[Amateurprofi]

Ich hab es jetzt so gelöst:
(Ist nicht ganz das was ich ursprünglich wollte, aber es funktioniert.)

Delphi-Quellcode:

FUNCTION GetFontHeight(AFont:TFont; ASize:integer; AStyles:TFontStyles):integer;
var f:TFont; DC:HDC; OldFont:HFONT; Metrics:TTextMetric;
begin
   f:=TFont.Create;
   DC:=GetDC(0);
   try
      try
         f.Assign(AFont);
         f.Size:=ASize;
         f.Style:=AStyles;
         OldFont:=SelectObject(DC,f.Handle);
         GetTextMetrics(DC, Metrics);
         SelectObject(DC,OldFont);
         Result:=Metrics.tmHeight;
      except
         On Exception do result:=0;
      end;
   finally
      ReleaseDC(0,DC);
      f.Free;
   end;
end;

Zitat von p80286:

Man könnte auch sagen "wasch mich aber mach mich nicht nass".
Ist ja nicht soganz unüblich solche Forderungen zu stellen.

Ich stellte keine Forderungen, sondern nur eine Frage.

Zitat von himitsu:

Wenn du wissen willst, wie schwer ein Auto ist, dann mußt du dieses zu einer Wage bringen
oder du nimmst dir ein vergleichbares Auto und schaffst das zur Waage.
(oder du kennst jemanden der weiß wie schwer es ist)

Wenn ich aber keine Waage habe, oder aus irgendwelchen Gründen keine Waage benutzen möchte, dann ermittle ich für alle Materialien aus denen das Auto besteht, das Volumen und errechne über das jeweilige spezifische Gewicht die Masse.

Falls doch noch jemand einen Weg kennt, wie das besser zu lösen ist, bin ich für jeden Hinweis dankbar.