ShowDiff() - Texte vergleichen
Die Funktion bekommt zwei beliebige Texte übergeben und vergleicht diese mittels eines externen File-Differs.
Zuerst wird ermittelt ob Beyond Compare installiert wurde um dieses zu verwenden, falls es jedoch nicht vorhanden ist so wird
die Applikation, die im BE32-Verzeichnis liegt und 'DiffTool.exe' heißt (z.B. die FreeWare "CSDiff.exe") verwendet.
Die übergebenen Texte werden auf der lokalen Festplatte gespeichert und an die externe Applikation per Parameter übergeben.
|
Parameter |
Beschreibung |
|---|---|
|
cInput1:C |
Vergleichstext 1 |
|
cInput2:C |
Vergleichstext 2 |
|
cName1:C |
Dateiname der ersten Datei; Default = 'Text1' |
|
cName2:C |
Dateiname der zweiten Datei; Default = 'Text2' |
|
lModal:L |
True: DiffTool.exe wird modal angezeigt.
|
Rückgabewert
Boolean
True: Kein Fehler
False: Fehler (z.B. 'DiffTool.exe' konnte nicht gefunden werden)
Beispiel
| cText1, cText2 |
cText1 := 'Dies ist Text 1' + crlf +
'und die zweite Zeile',
cText2 := 'Dies ist Text 2' + crlf +
'und die zweite',
ShowDiff(cText1, cText2, 'Text1', 'Text2', false)