Thema: Delphi Pos und Delete

Einzelnen Beitrag anzeigen

Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Pos und Delete

  Alt 14. Jul 2009, 20:04
Als erstes prüfen, ob der Such-String identifiziert werden kann (in deinem Fall nicht, Beträge sind immer anders), dann also immer gültige Begrenzung ermitteln:

Betrag folgt (hoffentlich) immer nach einem Doppelpunkt. Also alles bis zum Doppelpunkt löschen:
Delphi-Quellcode:
S := 'Umsatz: 88€
Delete(S, 1, Pos(':', S));
Jetzt hast Du " 88€" als Rest-String. Sofern es immer €-Beträge sind:
Delete(S, Pos('', S), 1024); Die 1024 ist hier nur, um nicht die Länge des String ermitteln zu müssen.

Rest-String ist jetzt " 88", also noch Leerzeichen weg:
S := Trim(S); Die vorgehensweise hat einen Haken... Abweichungen beim Ausgangsstring werden nicht so leicht weggesteckt. Also sicherstellen, dass : und € vorhanden sind, ist schonmal Pflicht.
  Mit Zitat antworten Zitat