string bei abfrage kürzen?

[khh]

hallo zusammen,
ich möchte eine String aus der DB bei der Ausgabe auf den Drucker auf 12 Zeichen kürzen.
jetzt übergebe ich den wert folgendermassen:

Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , ZQuery.FieldByName('firma').AsString);

hier ein copy anzusetzen geht ja nicht.
Ist es möglich schon bei der sqlabfrage zu kürzen?

danke Gruss kh

[Medium]

Warum geht kein copy? Folgendes sollte doch problemlos klappen:

Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , copy(ZQuery.FieldByName('firma').AsString, 1, 12));

:gruebel:

[toms]

Zitat:

Zitat von khh

Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , ZQuery.FieldByName('firma').AsString);
hier ein copy anzusetzen geht ja nicht.

Hallo, warum sollte das Copy nicht gehen?

Delphi-Quellcode:

Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , Copy(ZQuery.FieldByName('firma').AsString, 1, 12));

[mkinzler]

Oder direkt in der Ausgabe

SQL-Code:

select cast( <Feld> as char(12)), ...

[khh]

Zitat:

Zitat von toms

Zitat:

Zitat von khh

Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , ZQuery.FieldByName('firma').AsString);
hier ein copy anzusetzen geht ja nicht.

Hallo, warum sollte das Copy nicht gehen?

Delphi-Quellcode:

Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , Copy(ZQuery.FieldByName('firma').AsString, 1, 12));

so gehts tatsächlich, aber warum gehst hier nicht?
hab ich irgendwo ne Klammer falsch?


Printer.Canvas.TextOut(frandlinks + cmtopixel(7,fdpih) ,frandoben + cmtopixel(fzeilenposition,fdpih) + cmtopixel(fzeilendruckposition,fdpih) , copy(ZQuery.FieldByName('artbezeichnung').AsString ),1,12)) ;

Error: Wrong number of parameters specified for call to "$fpc_ansistr_copy"

Gruss KH

[toms]

Eine Klammer ist zu viel: AsString) -> AsString

[Matze]

Zitat:

Zitat von khh

hab ich irgendwo ne Klammer falsch?

Jupp.

Delphi-Quellcode:

copy(ZQuery.FieldByName('artbezeichnung').AsString, 1, 12)

Nach "AsString" ist eine überflüssige Klammer. Vergleiche es einfach mit dem funktionierenden Beispiel von toms.

Grüße, Matze

Edit: Da war ich mal wieder zu langsam ...

[khh]

Zitat:

Zitat von Matze

Zitat:

Zitat von khh

hab ich irgendwo ne Klammer falsch?

Jupp.

Delphi-Quellcode:

copy(ZQuery.FieldByName('artbezeichnung').AsString, 1, 12)

Nach "AsString" ist eine überflüssige Klammer. Vergleiche es einfach mit dem funktionierenden Beispiel von toms.

Grüße, Matze

Edit: Da war ich mal wieder zu langsam ...

ich danke euch,
ist halt noch früh am Morgen ;-)


Gruss Kh

[shmia]

Man darf übrigens lokale Variablen verwenden, um den Sourcecode klarer darzustellen:

Delphi-Quellcode:

var
  artbez : string;
begin
  artbez := copy(ZQuery.FieldByName('artbezeichnung').AsString, 1, 12);
  Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , artbez);

Man muss nicht alles in eine Zeile pressen.

[Stevie]

Oder nen Plugin benutzen, was Klammern highlightet 8-)