Ok hat sich erledigt!
Result = 115 wurde deshalb ausgegeben weil ich bedingt durch ORD[]
For IntI := 1 To Length(StrView) do
mit den zähler IntI := 1 anfagen mußte.
So geht es nun..
For IntI := 1 To Length(StrView) + 1 do
Bleibt noch eine Frage offen.
Delphi-Quellcode:
If StrView[IntI] > ' ' Then
begin
// neue picTopTextSrc weite zuweisen abhängig von
// der aktuellen gesamtweite(IntX)
picTopTextSrc.Width := IntX;
SetImage(picTopTextSrc, NewPos, 0, IntX, 7, picMap, IntPos, 88);
end else
begin
// Bei Leerstring wird andere Y Position benötigt
picTopTextSrc.Width := IntX;
SetImage(picTopTextSrc, NewPos, 0, IntX, 7, picMap, IntPos, 4);
end;
Hier wird die picTopTextSrc.Width nicht neugesetzt!
Obwohl so wie man sehen kann diese sich auf die neue weite IntX setzen sollte.
Jetzt sag mir mal jemand was das denn nun wieder für ein Problem ist!
Der Schriftzug wird nur korrekt angezeigt wenn ich vorher die weite in der Form setze
aber das kann es ja wohl nicht sein.
gruß