===== CompareText()-Funktion =====
\\
==== Einleitung====
Manchmal muss man in einem Programm vergleichen, ob zwei String-Variablen identisch oder unterschiedlich sind. Genau das macht die [[..:standardfunktionen|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:

<Code:pascal linenums>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.</Code>
 
{{:cockpit-xp:addon:standardfunktionen:cp-wiki-comparetext-beispiel-1-1.png?nolink|}}  {{:cockpit-xp:addon:standardfunktionen:cp-wiki-comparetext-beispiel-1-2.png?nolink|}}

\\
== Beispiel 2 ==
Dieses Beispiel vergleicht identische Zeichenfolgen:

<Code:pascal linenums>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.</Code>

{{:cockpit-xp:addon:standardfunktionen:cp-wiki-comparetext-beispiel-2-1.png?nolink|}}{{:cockpit-xp:addon:standardfunktionen:cp-wiki-comparetext-beispiel-2-2.png?nolink|}}


\\
----

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