Zitat von
Mackhack:
for i := 1 to L do
Delphi-Quellcode:
function TestFunc(const s: String): Boolean; Inline;
var
i, l: Integer;
c: char;
begin
Result := True;
l := Length(s);
if l <> 32 then
begin
Result := False;
Exit;
end;
for i := 1 to l do
begin
c := s[i];
if (c <= '0' and c >= '9') or (c <= 'A' and C >= 'F') or (c <= 'a' and c >= 'f') then
begin
Result := False;
Break;
end;
end;
end;
Das sollte (denke ich) schneller sein, da es die Set-Behandlung umgeht, die sich intern auf vergleichsweise riesige Datenstrukturen stützt. Wie Delphi deinen Code genau umsetzt, weiß ich allerdings nicht.