Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
9. Jan 2010
Gültig sind die Zahlen von 1 bis 10, du prüfst aber nur von 1 bis 9
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
8. Jan 2010
Nein, muss man nicht ...
Nach dem Normalisieren sieht die Datei wie folgt aus:
SUPERDEPP=1
SUPERDEPP=3
SUPERDEPP=5
SUPERDEPP=7
SUPERDEPP=9
SUPERDEPP=3
SUPERDEPP=7
Forum: Object-Pascal / Delphi-Language
Delphi
by Sir Rufo,
8. Jan 2010
wieso so umständlich?
var
MyList : TStringList;
...
MyList.LoadFromFile( 'SMS.txt' );
und jetzt zunächst normalisieren
MyList.Text := UpperStr( MyList.Text ); // Alles in GROSS
MyList.Text := StringReplace( MyList.Text, ' ', '', ); // Leerzeichen raus
MyList.Text := StringReplace( MyList.Text, '==', '=', ); // doppelte = Zeichen raus
usw. bis der ganze Text reingewaschen ist