Registriert seit: 17. Aug 2002
178 Beiträge
|
Re: Gleiche Buchstaben?
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
|
|
Zitat
|