Prozent ausrechnen und Wert zuweisen

[Minz]

Hi,

Delphi-Quellcode:

function EyMannGibStatus(maxLength,anz:integer):string;
var i,i2:integer;
begin
  result:='[';
  for i:=1 to anz do
    result:=result+'#';
  for i2:=i to maxLength do
    result:=result+'-';
  result:=result+']';
end;

anzahlkreuze:=StatusBalkenEinheiten*prozent;
Balken:=EyManGibStatus(StatusBalkenEinheiten,anzahlkreuze);

so in etwa?