Documentazione
torna al sito web >

CompareText (Pascal-Script)

Descrizione

ConfrontaText confronta due stringhe in base al loro valore ordinale senza considerare le lettere maiuscole e minuscole.

ConfrontaText confronta S1 con S2 e restituisce 0 se entrambi sono identici. Se S1 è maggiore di S2, viene restituito un valore intero maggiore di 0. Se S1 è inferiore a S2, il valore di ritorno è inferiore a 0; il confronto non è maiuscolo/minuscolo e non tiene conto dell'impostazione corrente del paese di Windows.

Ad esempio, CompareText specifica che la stringa
ABC
è più piccola di
aaa
perché A è più piccola di a nell'ordine ASCII. Ciò è in contrasto con un confronto non sensibile ai maiuscoli/minuscole/minuscole. In questo caso, la lettera B o un confronto basato sull'impostazione del paese (nella maggior parte dei driver di lingua, le lettere maiuscole hanno valori più alti rispetto alle lettere minuscole) mostrerà la prima stringa come più grande.

Sintassi

function CompareText(const S1, S2: String): Integer;

Argumenti

S1 è il primo testo da confrontare, S2 è il secondo testo da confrontare con il primo.

Esempio

var
  S1: String;
  S2: String;
  i:Integer;
  S3: String;
begin
  S1:='Berta';
  S2:='Markus';
  i:=CompareText(S1,S2);
  S3:=IntToStr(i);
  ShowMessage(S3);
end;

Le regole per comprendere lo script possono essere trovate qui.

In questo esempio, i testi S1 e S2 vengono confrontati tra loro. La funzione CompareText genera un valore intero negativo se il contenuto di S1 è minore, un valore intero positivo se è maggiore e 0 se è uguale. Il risultato di CompareText viene assegnato alla variabile intera i, che viene poi convertita in testo S3 via IntToStr ed emessa via ShowMessage. Il risultato dovrebbe essere negativo, in quanto S1 è inferiore a S2.

ShowMessage spettacoli: -11