/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Optælling af tegn, tal og specieltegn.
Fra : Søren Aaholm Møller


Dato : 16-09-01 15:02

Hejsa

Jeg har en hel masse items i en listbox... Jeg vil gerne have optalt hvad
der er tal, bogstaver og specieltegn ( colon, semicolon osv.).

Kunne forestille mig at man stoppede hele skidtet ned i en variable

variable := mainFrm.ListBox1.GetText

Og så tog det derfra...?

Hvordan gør jeg?

// Søren



 
 
Bear (17-09-2001)
Kommentar
Fra : Bear


Dato : 17-09-01 00:03

> Jeg har en hel masse items i en listbox... Jeg vil gerne have optalt hvad
> der er tal, bogstaver og specieltegn ( colon, semicolon osv.).
>
> Kunne forestille mig at man stoppede hele skidtet ned i en variable
>
> variable := mainFrm.ListBox1.GetText
>
> Og så tog det derfra...?
>
> Hvordan gør jeg?


Kig på ASCII tabellen og find ud af hvor tal, bogstaver og specialttegn
adskilles.

Her er lidt pseudokode:

var
tal, bogstaver, spectegn : Integer;
s : String;
i : Integer;

begin
tal,bogstaver,spectegn := 0;
s := listbox1.Items.Text;
i := 1;
while i <= Length(s) do
begin
case s[i] of
48 .. 57 : Inc(tal);
58 .. xx : Inc(spectegn);
yy .. zz : Inc(bogstaver);
end;
end;

--
mvh

Bear

ICQ: 2745075



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste