Forum: Object-Pascal / Delphi-Language
Delphi
by Jasocul,
25. Feb 2014
Jetzt, wo du es sagst, kann ich mich dunkel daran erinnern, vor längerem etwas darüber gelesen zu haben.
Forum: Object-Pascal / Delphi-Language
Delphi
by Jasocul,
24. Feb 2014
Ich denke, das Beispiel von Union funktioniert nicht. Die Indexierung von Strings (auch bei der Copy-Funktion) beginnt bei 1. Aber der Ansatz ist richtig, nicht über die Indizierung wie im Beispiel von p80286 zu gehen.
Mein (ungeprüfter) Vorschlag:
i := 1;
while copy(ArtNr, i, 1) = '0' do
inc(i);
if i > 1 then
insert(' ', ArtNr, i);