Hallo Profis,
ich hab ein großes Problem... Ich muss Text und aus einer Datenbank
entsprechende Zahlenfelder mit TextOut ausgeben. Hab folgenden Code:
Delphi-Quellcode:
TextOut(100,170, DateToStr(Date) + ' ' + TimeToStr(Time));
TextOut(100,200, '------------------------------------------');
With Table3 do begin
first;
while not eof do begin
TextOut(50, Zeile, IntToStr(Fieldbyname('Menge').asInteger));
TextOut(150,Zeile, Fieldbyname('Artbez').asstring);
TextOut(400,Zeile, FloatToStrF(Fieldbyname('ges').asfloat, fffixed,9,2));
next;
zeile := zeile + 30;
end;
end;
Nun dachte ich mit IntToStr, oder FloatToStrF(....) könnte ich die Zahlen
rechtsbündig ausgeben. Kann mir jemand helfen??? Ich komm einfach nicht
weiter.
Danke für jeden Tip...
Gruß Beanbear6
[edit=SirThornberry]Delphi-Tags gesetzt. Nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]