Inhaltsverzeichnis
CompareText()-Funktion
Einleitung
Manchmal benötigt man einen bestimmten Teil aus einer größeren Zeichenfolge. Genau das erledigt 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 Pos()-Funktion ermittelt, an welcher Position der Zeichenkette der zu kopierende Text „Cockpit-XP“ beginnt.
Mit Hilfe der Length()-Funktion stellen wir fest, wie viele Zeichen ab der ermittelten Position zu kopieren sind.
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.
Hinweise
