Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Aussondern von Zahlen aus einem String


skall - Mo 26.01.09 23:08
Titel: Aussondern von Zahlen aus einem String
und nocheinmal nabend :D

Also... Ich versuche aus einem String, der Aus Ziffern, Tab udn Leerzeichen besteht die Zahlen hintereinander raus zu ziehen und in einer Varriablen komplett abzuspeichern...

Sprich: 222 3 12 45
-> 22231245

gibts dazu iwie ne function? :o


delfiphan - Mo 26.01.09 23:11

Mit StringReplace Leerzeichen mit Leerstrings ersetzen (?)


Hidden - Mo 26.01.09 23:13

Hi :)

Ich sehe das Problem nicht :nixweiss: Mach doch einfach:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
var
  S: String;

//..
for i := 1 to Length(S) do begin
  if not (S[i] in [0..9]) then
    Delete(S, i, 1);
end;


Außerdem: http://www.delphi-forum.de/viewtopic.php?t=88966&highlight=delete+string

mfG,


Xentar - Mo 26.01.09 23:27

user profile iconHidden hat folgendes geschrieben Zum zitierten Posting springen:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
var
  S: String;

//..
for i := 1 to Length(S) do begin
  if not (S[i] in [0..9]) then
    Delete(S, i, 1);
end;

Und wenn etwas gelöscht werden soll, immer rückwärts laufen ;)