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:
Code:
i := 1;
while copy(ArtNr, i, 1) = '0' do
inc(i);
if i > 1 then
insert(' ', ArtNr, i);