Fehler in Formular

[Hoebig]

Sehr geehrte Kolleginnen und Kollegen,

im anhängenden Formular wird das Feld "LSKurzbezeichnung" nicht korrekt dargestellt. Es wird einfach vorne abgeschnitten, wobei ich kein Muster erkennen kann... Es wäre sehr schön, wenn jemand den Fehler finden könnte.

Vielen Dank für Ihre Unterstützung.

GS-Daten.jpg (10.63 KiB) 1843 mal betrachtet

[Raffenberg]

Ganz auf die Schnelle, ohne reinzuschauen: ist das Feld mittenzentriert statt linksbündig?

[Gerhards]

Hallo Michael,
im Anhang der korrigierte Report.
Die Programmierung für dieses Feld habe ich gelöscht:

Code: Alles auswählen

Text := copy(text,10,length(Text));

Keine Ahnung, wozu das gut sein soll, denn so funktioniert das auf jeden Fall mit dem Report bei mir.

[Gerhards]

Hallo,
ich habe mir gerade mal die Programmierung bzw. die Syntax zu Copy angesehen, weil mich interessierte, warum das Problem auftaucht:
Wenn die Zeichenkette länger ist als die vorgesehenen 10 Zeichen ist, dann werden die letzten 10 Zeichen gedruckt. Daher dieses "Muster". Ich hätte eher die ersten 10 Zeichen erwartet.

[W.Maßmann]

Hallo Herr Gerhards.

Die Programmierung für dieses Feld habe ich gelöscht:
Text := copy(text,10,length(Text));
Keine Ahnung, wozu das gut sein soll, ...

Das will ich Ihnen gerne verraten: dadurch wurden für den Bereich Marl die ersten 9 Zeichen der LSKurzBez "Marl, GG " übersprungen.
Ich habe das vor Urzeiten mal in Formularen eingefügt.
Ob auch in diesen Report, kann ich heute nicht mehr sagen.

Wenn die Zeichenkette länger ist als die vorgesehenen 10 Zeichen ist, dann werden die letzten 10 Zeichen gedruckt.

Ab dem 10. Zeichen der Rest.

[Hoebig]

Super, vielen Dank. Wieder was gelernt.

[Gerhards]

Hallo Herr Maßmann,

Das will ich Ihnen gerne verraten: dadurch wurden für den Bereich Marl die ersten 9 Zeichen der LSKurzBez "Marl, GG " übersprungen.

ah, ok
Nur mal zur Info: Aufgrund hier fehlender Doku nutze ich in der Regel folgende Webseite bezüglich der Syntax, die ich mal irgendwann über eine Recherche gefunden habe:
http://docwiki.embarcadero.com/Librarie ... ingReplace

Vielleicht haben Sie noch einen anderen Tipp für mich. Wäre klasse

[W.Maßmann]

Hallo Herr Gerhards.

Vielleicht haben Sie noch einen anderen Tipp für mich.

Es hat etwas gedauert, aber meine Zeit wurde anderweitig beansprucht.
Über die zwischenzeitlich an anderer Stelle gegebenen Hilfen hinaus fällt mir nichts ein.

[Gerhards]

Hallo Herr Maßmann,
danke für die Info

[W.Maßmann]

Hallo.

… Text := copy(text,10,length(Text)); ...
Ich habe das vor Urzeiten mal in Formularen eingefügt.

Heute würde ich es wohl so lösen:
Procedure DBText3OnGetText (var Text : String);
var i : integer;
begin
i:= pos(',',text);
Text := copy(text,i+5,length(Text));
end;

Eine alternative Ausgabe bei gleichen Grundschulnamen in der näheren Umgebung könnte sein:
Text := copy(text,1,1)+'., '+copy(text,i+5,length(Text));