Thema: Delphi Gleiche Buchstaben?

Einzelnen Beitrag anzeigen

Kamil

Registriert seit: 17. Aug 2002
178 Beiträge
 
#6

Re: Gleiche Buchstaben?

  Alt 4. Dez 2003, 20:41
Ich würd's so machen:
Delphi-Quellcode:
function GleicheBuchstaben(s, t: string): boolean;
var
  a, b: array of integer;
  i: integer;
begin
  result:=false;
  if length(s)<>length(t) then
    exit;
  SetLength(a, 256);
  SetLength(b, 256);
  fillchar(a[0], 256*sizeof(integer), 0);
  fillchar(b[0], 256*sizeof(integer), 0);
  for i:=1 to length(s) do
  begin
    inc(a[ord(s[i])]);
    inc(b[ord(t[i])]);
  end;
  result:=CompareMem(@a[0], @b[0], 256*sizeof(integer));
  SetLength(a, 0);
  SetLength(b, 0);
end;
edit: kleinen Fehler korrigiert
  Mit Zitat antworten Zitat