Zitat:
Code:
function StripDoubleChars(const Source: string): string;
var
C: AnsiChar;
cSet: set of 'A'..'Z';
I: Integer;
begin
cSet := [];
Result := '';
for I := 1 to Length(Source) do begin
C := AnsiChar(UpCase(Source[I]));
if not (C in ['A'..'Z']) then Continue;
if not (C in cSet) then begin
Include(cSet, C);
Result := Result + Source[I];
end;
end;
end;
Ich schaffs nicht das ganze zu implementieren. Brauche theoretisch das ganze als Prozedur.
Habe zwei Untis, eine für die oberfläche, die andere für die Umwandlung.
Ich weiß nicht so ganz ob mein Aufruf hier richtig ist.
Code:
procedure TCaesar.SetPassword(ps2: string);
var
i: integer;
begin
ps:='';
ps2:=UpperCase(ps2);
for i:=1 to length(ps2) do begin
case ps2[i] of
'A'..'Z': ps:=ps + ps2[i];
'Ä': ps:=ps + 'A';
'Ö': ps:=ps + 'O';
'Ü': ps:=ps + 'U';
'ß': ps:=ps + 'S';
end;
end;
[B][U]ps:= stripdoublechars(ps) ;[/U][/B]
end;
Durchläuft er dann den obengenannten Prozess und dann die Function StripDoubleCharacters?