Moin,

Ich habe fix mal ein geschrieben ...
Es entspricht soweit Deine Anforderungen.

Daniel Rieck schrieb in Nachricht ...
>Ich suche ein Programm, das die �hnlichkeit von zwei Strings bewertet,
>am besten in Form einer Prozentangabe...
>
>Beispiel:
>hund / hund = 100%
>hand / hund = 75%
>hund / hunde = 80%
>hund / katze = 0%
>(oder so...)
>
>Wer kann mir ein entsprechendes Programm schicken oder die URL nennen?




uses
  DOS;

var
  I,J,K,L1,L2:Integer;
  Prozent    :Real;
  S1,S2      :String;

function Trim(s:string):string;
var
  i:Integer;
begin { Leerstellen am Anfang und Ende entfernen }
  while (s'') and (s[1]=' ') do delete(s,1,1);
  while (s'') and (s[length(s)]=' ') do delete(s,length(s),1);
  Trim:=s;
end;

begin
  Prozent:=0;
  if paramcount=2 then
  begin
    S1:=Paramstr(1);
    S2:=Paramstr(2);

    S1:=Trim(S1);
    S2:=Trim(S2);
    J:=Length(s1);
    if Length(s2)>J then J:=Length(S2);
    while Length(S1)Mailto:Herby.7two11@T-Online.de
www.Herby.de.cx