Thema: Delphi Führende Null entfernen

Einzelnen Beitrag anzeigen

willnix

Registriert seit: 14. Apr 2007
Ort: Heidelberg
27 Beiträge
 
Delphi 7 Professional
 
#7

Re: Führende Null entfernen

  Alt 22. Mai 2007, 16: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
  Mit Zitat antworten Zitat