===== CompareText()-Funktion =====
\\
==== Einleitung====
Manchmal benötigt man einen bestimmten Teil aus einer größeren Zeichenfolge. Genau das erledigt [[..:standardfunktionen|Standardfunktion]] Copy().

\\
==== Syntax ====
^  Befehl | Copy ( s1:String, from:Integer, length:Integer ) |
^  Funktion | Diese Funktion kopiert eine komplette oder den Teil einer Zeichenfolge in eine andere Zeichenfolge. Die Übergabeparameter sind zum einen die Zeichenfolge selbst und dann die Position innerhalb der Zeichenkette, aber der die Kopierfunktion greifen soll, sowie die Länge des zu kopierenden Textes. |
^  Rückgabewert | String |
\\
==== Codebeispiel ====

Dieses Beispiel kombiniert einige Standardfunktionen, um das gewünschte Ergebnis zu erzielen.  
Die [[..:standardfunktionen:pos|Pos()-Funktion]] ermittelt, an welcher Position der Zeichenkette der zu kopierende Text "Cockpit-XP" beginnt.

Mit Hilfe der  [[..:standardfunktionen:length|Length()-Funktion]] stellen wir fest, wie viele Zeichen ab der ermittelten Position zu kopieren sind.

<Code:pascal linenums>var
  Text1 : String;
  Text2 : String;
  Textlaenge : Integer;
  Textposition : Integer;

begin

  Text1 := 'Rennbahnzeitmessung Cockpit-XP V2.';
  
  Textlaenge := Length( 'Cockpit-XP');
  Textposition := Pos( 'Cockpit-XP', Text1 );

  Text2 := Copy( Text1, Textposition, Textlaenge );
  
  cpShowMessage('Länge     : ' + IntToStr(Textlaenge) + Chr(10) + Chr(13) +
                'Position : ' + IntToStr(Textposition) + Chr(10) + Chr(13) +
                ' ' + Chr(10) + Chr(13) +
                'Text        : ' + Text2);
  
end.</Code>


{{:cockpit-xp:addon:standardfunktionen:cp-wiki-copy-funktion.png?nolink|}}
\\
==== Hinweise ====
Natürlich ließe sich dieses Beispiel schneller durch Angabe der festen Position und der bekannten Textlänge kürzer schreiben. Allerdings geht es ja um die grundlegenden Techniken.

\\
----

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