Speicheranzeige wie bei iTunes anzeigen

[jacky213]

Mein Problem ist gerade das ich einen Totalschaden im Kopf habe. Kannst du mir hierfür ein komplettes Beispiel machen? Ich weis nicht wie ich das erklären soll, ich sitze vielleicht schon zu lange am Stück an diesem Projekt.

Blackout überwunden, zwar sehr unelegante Lösung aber immerhin eine Lösung:

Procedure ShapeWidth(lab:TLabel;sha:TShape);
var
w,s:string;
begin
with frmRepInfo do
begin
w := Floattostr(strtofloat(tlabel.caption) / strtofloat('100'));
w := Floattostr(strtofloat(lab.Caption) / strtofloat(w));
s := Floattostr(strtofloat(inttostr(Width-5)) / strtofloat('100'));
s := Floattostr(strtofloat(w) * strtofloat(s));
if not (pos(',',s)=0) then s := copy(s,0,pos(',',s)-1);
sha.Width := strtoint(s);
end;
end;