Hej
Nedstående procedure konstrueret virker fint.
Men ønsker en anden funktion.
Med tekst koderne ISO 8859-1 Se her: www.html.dk/dokumentation/tegn/iso.asp
Som du kan se, har alle tegn en korresponderende nummerisk værdi.
Lille a er 97, stort B er 66 osv.
Disse kan skrives til skærmen ved hjælp af følgende syntaks: a og B osv.
Den procedure herunder, kan den laves om til, at konverter så resultatet bliver
som eksempel her:Mail@sunwind.dk = :mail@domain.dk
Lige til, at ligge ud på sin hjemmeside uden at Spamrobotterne kan læse koden og man undgår alt det udønsket post!
Den færdige HTML-kode:
<a href="mailto:mail@domain.dk">
E-mail Klik her!</a>
Konvertere:
procedure TForm1.Button1Click(Sender: TObject);
var
idx : integer;
str : String;
txt : String;
begin
str := '';
txt := UpperCase(edit1.text);
for idx := 1 to length(txt) do
str := str + Format('%.2d', [Ord(txt[idx]) - 64]);
idx := 5;
while idx < length(str) do
begin
insert(' ', str, idx);
inc(idx, 5);
end;
label1.Caption := str;
end;
Hører meget gerne fra dig, da jeg har arbejde meget på denne funktion.
Se min brugerflade på Antispam program: www.sunwind.dk/brugerflade.jpg
Med venlig hilsen
Monie Jacobsen
E-mail: mjs at nypost dot dk