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.



Start - FAQ - Glossar - Sitemap - Impressum

 
cockpit-xp/addon/standardfunktionen/comparetext.txt · Zuletzt geändert: 2020/11/28 12:16 (Externe Bearbeitung)