Registriert seit: 14. Apr 2007
Ort: Heidelberg
27 Beiträge
Delphi 7 Professional
|
Re: Führende Null entfernen
22. Mai 2007, 17:01
Ok, also...
Delete(EditTemp, Length(Edit1.Text), Length(Edit1.Text));
Lenght Gibt die Länge des Strings zurück. Also wenn 2,34 im Edit steht, ist der Wert von "Length(Edit1.Text)" 4.
So, und Delete löscht Zeichen aus einem String.
Und zwar wie folgt:
Delete(Der String aus dem gelöscht werden soll, Die Position im String AB der gelöscht werden soll, Die Position BIS zu der gelöscht werden soll)
Wenn die länge des Strings jetzt 4 ist, dann ist die Position der letzten Ziffer auch 4 also lösche ich mit:
Delete(EditTemp, Length(Edit1.Text), Length(Edit1.Text));
das letzte Zeichen aus dem String EditTemp.
Delete(EditTemp, Length(Edit1.Text-1), Length(Edit1.Text-1));
Würde z.B die vorletzte Ziffer aus EditTemp löschen.
oder mit
Delete(EditTemp, 1, 3);
Alles von der ersten bis zur 3. Position.
Ich hoffe das war verständlich
Willnix
|