Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Ereignisse zählen; Zahl in einzelne "Stellen" zerlegen
Paulchengb - Mo 09.04.07 21:22
Titel: Ereignisse zählen; Zahl in einzelne "Stellen" zerlegen
Hallo,
wie kann man mit Delphi zählen, wie oft zB. die Ziffer 1 in 39183717382711 vorkommt?
Und wie kann ich die Zahl 39183717382711 in die einzelnen Stellen zerlegen, so dass ich auslesen kann, welche Ziffer auf der 4. Stelle steht?
Erstmal in nen string verwandeln, aber dann?
Blackheart666 - Mo 09.04.07 22:03
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.Button1Click(Sender: TObject);
var
MeineZahl:String;
Anzahl,i:Integer;
begin
Anzahl:=0;
MeineZahl:='39183717382711';
for i := 1 to Length(MeineZahl) do
begin
if (MeineZahl[i] = '8')then
Inc(Anzahl);
Label1.Caption:=Inttostr(Anzahl);
Label2.Caption:=MeineZahl[4];
end;
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!