===== DeleteStr() =====
\\
==== Einleitung====
Dieser Befehl aus den [[..:standardfunktionen|Standardfunktionen]] dient dem löschen einer ganzen oder des Teils einer bereits existierenden Zeichenkette. 

\\
==== Syntax ====
^  Befehl | DeleteStr ( s1:String, pos:Integer, count:Integer ) |
^  Funktion | Löscht eine vorgegebene Anzahl Zeichen 'count'aus einer Zeichenfolge 's1' beginnend an der mit 'pos' definierten Stelle. |
^  Rückgabewert |  |
\\
==== Codebeispiel ====
Aus der Zeichenkette 'Rennbahnzeitmessung Cockpit-XP V2.' eingefügt, werden alle Zeichen nach 'Rennbahnzeitmessung' entfernt.
\\
<Code:pascal linenums>var
  Text1 : String;
  Text2 : String;
  Textlaenge : Integer;
  posLeerzeichen : Integer;
  deleteCount : Integer;

begin

  Text1 := 'Rennbahnzeitmessung Cockpit-XP V2.';
  Text2 := Text1;
  
  Textlaenge := Length( Text2 );
  posLeerzeichen := Pos( ' ', Text2);
  deleteCount :=  Textlaenge - posLeerzeichen;
  
  DeleteStr( Text2, posLeerzeichen, Textlaenge - posLeerzeichen );

  cpShowMessage('Text 1: '+Text1+Chr(10)+Chr(13)+
                'Länge Text: '+IntToStr(Textlaenge)+' Zeichen.'+Chr(10)+Chr(13)+
                'Gelöscht  : '+IntToStr(deleteCount)+' Zeichen.'+Chr(10)+Chr(13)+
                'Text 2: '+Text2);
  
end.</Code>

\\ 
{{:cockpit-xp:addon:standardfunktionen:cp-wiki-delete-prozedur.png?nolink|}}

 
\\
==== Hinweise ====

//Befehl funktioniert nur mit lokalen Variablen. Package-Variablen werden NICHT unterstützt!//

Zuerst wird die Länge der Zeichenkette mit der [[..:standardfunktionen:length|Length()]] ermittelt. 

Zum Löschen aller Zeichen nach 'Rennbahnzeitmessung' orientieren wir uns wieder am Leerzeichen nach diesem Begriff. Die zu löschende Anzahl Zeichen berechnen wir durch einfache Subtraktion der gefundenen Position mit Hilfe der  [[..:standardfunktionen:pos|Pos()]] von der Länge des gesamten Textes. 

Da dieses Ergebnis das Leerzeichen mit einschließt, sind keine weiteren Berechnungen erforderlich.

Der Unterschied zum [[:cockpit-xp:addon:standardfunktionen:delete|Delete]] Befehl ist mir persönlich unklar. Beide machen irgendwie das gleiche. Da die offizielle Delphi-Dokumentation diesen Befehl nicht enthält, ist er wohl eher Teil der AddOn-Scriptsprache.

\\


----

[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]