Inhaltsverzeichnis
CompareText()-Funktion
Einleitung
Manchmal muss man in einem Programm vergleichen, ob zwei String-Variablen identisch oder unterschiedlich sind. Genau das macht die Standardfunktion CompareText().
Syntax
| Befehl | CompareText( s1:String, s2:String ) |
|---|---|
| Funktion | Liefert den Wert '0', wenn die beiden Zeichenfolgen identisch sind und den Wert '-1' bei unterschiedlichen Zeichenketten. |
| Rückgabewert | Integer |
Codebeispiele
Beispiel 1
Dieses Beispiel vergleicht unterschiedliche Zeichenfolgen:
var
Text1 : String;
Text2 : String;
Ergebnis : Integer;
ErgebnisText : String;
begin
Text1 := 'Das ist Text 1.';
Text2 := 'Das ist Text 2.';
Ergebnis := CompareText(Text1, Text2);
cpShowMessage('Ergebnis Vergleich: ' + IntToStr(Ergebnis) + '.');
if Ergebnis = 0 then
ErgebnisText := 'Die Texte sind identisch.'
else
ErgebnisText := 'Die Texte sind unterschiedlich.';
cpShowMessage('Text 1 : ' + Text1 + Chr(10) + Chr(13) +
'Text 2 : ' + Text2 + Chr(10) + Chr(13) +
'Ergebnis: ' + ErgebnisText);
end.
Beispiel 2
Dieses Beispiel vergleicht identische Zeichenfolgen:
var
Text1 : String;
Text2 : String;
Ergebnis : Integer;
ErgebnisText : String;
begin
Text1 := 'Das ist Text 1.';
Text2 := 'Das ist Text 1.';
Ergebnis := CompareText(Text1, Text2);
cpShowMessage('Ergebnis Vergleich: ' + IntToStr(Ergebnis) + '.');
if Ergebnis = 0 then
ErgebnisText := 'Die Texte sind identisch.'
else
ErgebnisText := 'Die Texte sind unterschiedlich.';
cpShowMessage('Text 1 : ' + Text1 + Chr(10) + Chr(13) +
'Text 2 : ' + Text2 + Chr(10) + Chr(13) +
'Ergebnis: ' + ErgebnisText);
end.
