dann doch einfach so denke ich:
Delphi-Quellcode:
var i : integer;
Buchst : boolean;
begin
Buchst := false;
for i := 0 to length(Temp1)-1 do
if (Temp1[i] in ('a'..'z', 'A'..'Z', ...) then Buchst := true;
for i := 0 to length(Temp2)-1 do
if (Temp2[i] in ('a'..'z', 'A'..'Z', ...) then Buchst := true;
if Buchst then Showmessage('Buchstaben drin!')
else Showmessage('Keine Buchstaben gefunden!');
end;
ist jetzt ungetestet, aber ich glaube, das geht so, höchstens mit dem
in könnte es des Syntax wegen noch haken
MfG Lefko.