|
| 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
| |
|
|