"David Konrad" <david_konrad_FJERN_@hotmail.com> skrev i en meddelelse
news:c4h615$69u$1@sunsite.dk...
> "// Overby" <mailFJERN@FJERNoverbyhansen.dk> wrote in message
> news:c4gupd$2mj6$1@news.cybercity.dk...
> > Jeg har nu siddet i snart en time med et ganske simpelt problem.
> >
> > Jeg skal bruge en funktion, der tager en string som argument og
returnerer
> > TRUE, hvis denne streng er på min. 8 tegn og indeholder tal og
bogstaver.
> >
> > Kan nogen lige komme med den gyldne løsning?
>
> frit efter tastaturet, uden test
>
> funktion korrektString(s:string):boolean;
> var count:integer;
> okt,okb:boolean;
> begin
> result:=false;
> if length(s)<8 then exit;
> for count:=1 to length(s) do
> begin
> if (s[count] in '0'..'9') then okt:=true;
> if (upcase(s[count]) in 'A'..'Z') then oks:=true;
> end;
> result:=(okb and oks);
> end;
>
Jeg tænkte på noget lignende, men ville bruge flg : (delphi 4)
funktion korrektstring(s:string):boolean;
var count : integer
okt, okb : boolean;
begin
okt := false;
okb := false;
if (length(s) >= 8 then
begin
for count := 1 to length(s) do
begin
if ...
if ...
end;
end;
korrektstring := okt and okb;
end;
Nico
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.627 / Virus Database: 402 - Release Date: 16-03-2004