Gleiche Buchstaben?

[Kamil]

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