Edits værdi?

1.)

Hej jeg er ved at lave et emailprogram der skal kunne sende en ordentlig mail og dermed vise hvis navnet, adressen, emnet eller hvad der nu ellers kan være indeholder fejl,
SÅ:
Hvordan er det lige man tjekker en/flere edits værdier altså om de inderholder !"#¤% eller ÆØÅ eller andre mystiske tegn og så slår dem fra dvs. at der ikke skal komme den der Uspecificeret Fejl meddelse eller Raise Exception 405 men en Showmessage box hvor der stille og roligt står noget ala: Du har brugt et ikke gyldigt tegn: (tegnet)?


2.)

Kender i nogen gode delphi bøger ? Jeg har selv lige bestilt "Mastering Delphi 6" men jeg ved ikke om den er for svær at gå igang med? ....jeg er jo ret nybegynder til delphi...


Svarenes værdi:
1=75
2=75

//Xyber

[Redigeret d. 30/08-03 16:15:54 af Xyber]

Kode 

Function Contains(Source: String; Characters: String; ContainsOnly: Boolean): Boolean;
//Actually two functions in one.
{
  ContainsOnly = True:
    If Source is 'hello world'
    and Characters is 'helowrld'
    the function will return false, because the space ' ' isnt in the Characters
  ContainsOnly = False:
    If just one of the characters in Characters is in Source the function returns true.
}
Var
  I:Integer;
  CharArray: Array[0..255] of Boolean;
Begin
  For I := 0 to 255 do CharArray[I] := False; //Set all entries to False, to avoid all the cmp's and jmp's
  For I := 1 to Length(Characters) do CharArray[Ord(Characters[I])] := True; //Kinda slow as we evaluate ever character for its value - but it works.

  {two differant routines, because of performance}
  If ContainsOnly Then
  Begin
    Result := True; //default.
    For I := 1 to Length(Source) do
    Begin
      If NOT CharArray[Ord(Source[I])] Then
      Begin
        Result := False;
        Exit;
      end;
    end;
  end
  else
  begin
    Result := False;
    For I := 1 to Length(Source) do
    Begin
      If CharArray[Ord(Source[I])] Then
      Begin
        Result := True;
        Exit;
      End;
    End;
  End;
end;