Text in Memo bündig ausrichten

[Luckie]

Zu Debug-Zwecken stelle ich in einem Memo Wertepaare dar:

Delphi-Quellcode:

Memo1.Lines.Add(Param + ' :' + Value);

Als Schrift habe ich Courier New gewählt. Jetzt wäre mein Wunsch die Doppelpunkte alle untereinander zu bekommen. Pauschal Tabstopps einfügen geht nicht, da Param unterscheidlich langen Text enthalten kann. Gib oder kennt irgendjemand einen Trick, das hinzubekommen? Ein StringGrid wollte ich nicht unbedingt nehmen, das wäre zu viel des guten.

[Mavarik]

hmm

Delphi-Quellcode:

  while length(param) < Max do
   param := Param + ' ';

so.

Delphi-Quellcode:

Const 
  Space = '                                                ';

begin
  if length(Param) < max then
   Param := Param + copy(Space,1,Max - length(Param));
end;

oder so?

Frank :stupid:

[marabu]

Oder so:

Delphi-Quellcode:

const
  FMT = '%-*s : %s';
  PARAM_MAXLEN = 20;

begin
  with Memo.Lines do
    Add(Format(FMT, [PARAM_MAXLEN, Param, Value]));
end;

Grüße vom marabu

[Luckie]

Ich wußte ich kan mich auf euch verlassen. :P Danke.

[turboPASCAL]

Ha, marabu war schneller mit format.

Aber es gibt ja noch den Tabulator...

Delphi-Quellcode:

var i : byte;
begin
  for i := 1 to 20 do
    memo1.Lines.Add( inttostr(i*i )+ #9 + ':');
end;

:mrgreen:

[Vjay]

Das wollte er ja nicht ;)

Obwohl man auch Tabs, entsprechend der Ausgangslänge des Param anfügen könnte.