Kommastellen löschen

[Hansa]

for-Schleife über den string (st). Bis 3 zählen (pro komma i := i +1) und bei jedem Komma um eins hochzählen.

Delphi-Quellcode:

for i := 1 to dritteskomma do
  delete (st,1,dritteskomma);