Zitat von
marabu:
Hallo Emil,
als ich Beitrag #5 schrieb habe ich deinen Beitrag #4 noch nicht gekannt - alles wird klar:
Delphi-Quellcode:
begin
// ...
For IntI := 1 To Length(StrView) do // index läuft ab 1
begin
// StrS := MidStr(StrView, IntI + 1, 1); // nicht nötig
if StrView[IntI] <> ' '
then IntX := IntX + BWidth[Ord(UpCase(StrView[IntI])) - 65]; // nicht () sondern []
else Inc(IntI(5); //Bei Leerstring 5 hinzufügen
// ...
Grüße
Danke das hat mir sehr geholfen.
werde es mal bei den anderen ebenfalls ändern und mal debuggen.
Wie immer Daumen hoch und Danke!
Wenns nicht klappt melde ich mich nochmal
EDIT: Was so ne klammer doch ausmacht
gruß