![]() |
AW: Zahlen in einem String finden
Nja, bei Unicode macht der Code eventuell nicht ganz, was er soll. (aber zumindestens gibt es keine Zugriffsverletzungen)
Aber am Sichersten ist hier nicht
Delphi-Quellcode:
aka
array[0..255]
Delphi-Quellcode:
, sondern
array[Byte]
Delphi-Quellcode:
, also ein Array mit Feldern für jeden Char-Wert.
array[Char]
Und man kommt beim Char auch ohne Konvertierung aus, da es ja schon Chars sind.
Delphi-Quellcode:
myarray = array[Char] of Integer;
FillChar(myarray, SizeOf(myarray), 0); for i := 1 to Length(mystring) do Inc(myarray[mystring[i]]); // mit Forin sieht es auch ganz nett aus (wenn das Delphi sowas schon kann) for C in mystring do Inc(myarray[C]); for C := '0' to '9' do WriteLn(C, ' ', myarray[C]); // man kann die Typumwandlungen vom Write/Writeln auch benutzen, wenn man mag bzw. nur das, was man braucht
Delphi-Quellcode:
myarray = array['0'..'9'] of Integer;
FillChar(myarray, SizeOf(myarray), 0); for i := 1 to Length(mystring) do if mystring[i] in ['0'..'9'] then Inc(myarray[mystring[i]]); for C in mystring do if CharInset(mystring[i], ['0'..'9']) then Inc(myarray[C]); for C := '0' to '9' do // for C := Low(myarray) to High(myarray) do WriteLn(C, ' ', myarray[C]); |
AW: Zahlen in einem String finden
Jetzt sei mal nicht so pingelig, beachte bitte, daß ich ein Array of Integer und nicht of Byte genutzt habe.
Ernsthaft, wie groß wird eigentlich dieses
Delphi-Quellcode:
? Mein alter TI konnte damit nicht mehr umgehen.
array[char] of byte
Gruß K-H |
AW: Zahlen in einem String finden
256, bzw. 131072 Bytechen (ANSI/Unicode)
Der kleine latainische Buchstabe Kra (#$0138) oder der arabische Buchstabe Zah (#$0638) ist als "Byte" eine 8 (#$0038) |
AW: Zahlen in einem String finden
Die ganze Diskussion erinnert mich wieder an:
![]() |
AW: Zahlen in einem String finden
Zitat:
evtl. kommen wir ja noch zum konkreten Teil :-D |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz