Replace alle tegn

Hej,

Jeg har lige lavet denne funktion:

function Alfabetiser(theText: String): String;
const
  LegalChars = ['a'..'z', 'A'..'Z', 'æ', 'ø', 'å', 'Æ', 'Ø', 'Å'];
var
  i: integer;
begin
  for i := 1 to Length(theText) do
    if (theText[i] in LegalChars) then
      Result := Result + theText[i]
    else
      Result := Result + ' ';
end;


/SpEeDy

Du kan bare tilføje flere lovlige bogstaver hvis du f.eks. også vil tillade tal kan du bare ændre til:

  LegalChars = ['a'..'z', 'A'..'Z', 'æ', 'ø', 'å', 'Æ', 'Ø', 'Å', '1'..'9'];

/SpEeDy

ups

skulle selvfølgelig være

  LegalChars = ['a'..'z', 'A'..'Z', 'æ', 'ø', 'å', 'Æ', 'Ø', 'Å', '0'..'9'];

En smart ting vil være at den automatisk finder ud af hvilke tegn der er i det alfabet der er tilknyttet computerens aktuelle tegnsæt. Prøv med:

function HesteAlfabetiser(HesteTekst: String): String;
var
  I: integer;
begin
  for I := 1 to Length(HesteTekst) do
    if AnsiLowerCase(HesteTekst[I]) <> AnsiUpperCase(HesteTekst) then
      Result := Result + HesteTekst[I]
    else
      Result := Result + ' ';
end;