products/Sources/formale Sprachen/Delphi/Bille 0.71/__history/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: similarity.inc.~37~   Sprache: Unknown

rahmenlose Ansicht.~21~ DruckansichtText {Text[161] SPS[195] CS[231]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

//-------------------------------------------------------
//
//-------------------------------------------------------
function issimilar(L, R: String): boolean;
var
  vl, vr: String;
  res: boolean;
  //---------------------------------------------------------------
  function isPrefix(S1, S2: String): boolean;
  begin
    if (length(S1)<3) or (length(S1) > length(S2)) then
      result := false
    else
      result := MidStr(S2, 1, length(S1)) = S1
  end;
  //---------------------------------------------------------------
  function isnumber(S: String): boolean;
  var
    i,d,ll: 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', '.', ',', '+', '-',
        '$', '€']);
    d:=pos('.',S);
    if d>0 then begin
      ll:=length(S);
      d:=pos('.',midstr(S,D+1,ll));
      res:=res and (d<0)
    end;
    result := res;
  end;

begin
  //
  res := false;
  vl := LowerCase(L);
  vr := LowerCase(R);
  //remove separators
  vl := StringReplace(vl, FDB, '', [rfReplaceAll]);
  vr := StringReplace(vr, FDB, '', [rfReplaceAll]);
  // trailing 0's
  if length(vl)>0 then while vl[length(vl)]='0' do vl:=midstr(vl,1,length(vl)-1);
  if length(vr)>0 then while vr[length(vr)]='0' do vr:=midstr(vr,1,length(vr)-1);
  //
  if isnumber(vl) and isnumber(vr) then begin
    if charinset(vl[1],['-','+']) then vr:=midstr(vr,2,length(vr));
    if charinset(vr[1],['-','+']) then vr:=midstr(vr,2,length(vr));
    res := vl = vr;
  end;
  //
  result := res;
end;

[ Verzeichnis aufwärts0.471unsichere Verbindung  ]