Auto Tabolatore

Brug fonten Courier, der er alle tegnene lige store !!!

Prøv med Canvas.TextExtent(<Tekst>); den retunere størelsen på den streng du sender op.

Eller hvis du smider det over i en streng som du så skriver ud så brug #7 som seperator. Det er et tabulator tegn. Du kan så bruge X antal af #7 efter behov. Eks: S := \'Test\'+#7+\'af\'+#7+\'tab\';
Set det skulle gerne bliver til:
Test  af  tab

OK, så langt så godt.
Nu har jeg så en titel, en sti, og et nummer.

( dette er så i en teket fil )
Så sætter den et nummer en fx 1 og 4 * #7 og derefter indsætter den titel, og 6 * #7 + sti.
Så kommer nr. 2 der gør den det samme med et nyt musik nummer.

Så kommer vi til fx 12, så skal den jo kun indsætte 3 * #7 + Titel + sti

Ps. længen på titlen er forskelig for være nummer
  Skriv hvis i ikke forstå det!

Her er en anden løsning.. måske ikke så god men den virker:

function OpstilStreng(Nr: Integer; Text: String; Sti: String):String;

function AntalMellemrum(antal: Integer):String;
var
  I: Integer;
begin
  result:=\'\';
  if antal>0 then
    for I := 1 to antal Do
      begin
        result := result+\' \';
      end;
end;

begin
  result:=inttostr(Nr)+AntalMellemrum(5-Length(Inttostr(Nr))); // 5 er maxlængde af nr.
  result:=result+Text+AntalMellemrum(12-Length(Text)); // 12 er maxlægde af Text
  result:=result+Sti;
end;

S:=OpstilStreng(12,\'Text\',\'C:\\lalala\');

Jeg har fundet ud af det.
Det var ud fra kokoko indlæg!