Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Matching.pas.~501~
Sprache: Unknown
Haftungsausschluß.~2~ KontaktSPS {SPS[124] CS[172] Ada[207]}diese Dinge liegen außhalb unserer Verantwortung
//-------------------------------------------------------
//
//-------------------------------------------------------
function issimilar(L, R: String): boolean;
var
vl, vr: String;
res: boolean;
function isPrefix(S1,S2: String): boolean;
begin
result:=MidStr(S2,1,length(S1))=S1
end;
function isnumber(S: String): boolean;
var
i: integer;
res: boolean;
begin
res := true;
if length(S) = 0 then
res := false;
for i := 1 to length(S) do
res := res and charinset(S[i], ['0' .. '9', '.', '.', '+', '-', '$','']);
result := res;
end;
begin
res := false;
//
res := false;
vl := LowerCase(L);
vr := LowerCase(R);
//remove separators
vl := StringReplace(vl, FDB, '', [rfReplaceAll]);
vr := StringReplace(vr, FDB, '', [rfReplaceAll]);
//
if (length(vl) = 0) or (length(vr) = 0) then
res := false
else if vl = vr then
res := true
else if isPrefix(vl,vr) then
res := true
else if isPrefix(vr,vl) then
res := true
else if isnumber(vl) and isnumber(vr) then begin
vl := StringReplace(vl, '-', '', [rfReplaceAll]);
vl := StringReplace(vl, '+', '', [rfReplaceAll]);
vr := StringReplace(vr, '-', '', [rfReplaceAll]);
vr := StringReplace(vr, '+', '', [rfReplaceAll]);
res := vl = vr;
end;
//
result := res;
end;
[ Seitenstruktur0.210Drucken
]
|
|
