Hallo,
Ich habe einen String, um genauer zu sein einen Timestamp
Nun möchte ich einfach alles löschen, was keine Zahl ist. Also Buchstaben/Sonderzeichen sollen entfernt werden.

Ich denke ich kann Stringreplace verwenden, aber wie sage ich a-z + Sonderzeichen?

MfG
Benny

Ich weiß nicht, ob es da schon etwas vorgefertigtes gibt, also versuch es mal so.

markieren

Delphi-Quellcode:

function NurZahlen(const s: string): string;
var i: integer;
begin
  Result := '';
  for i := 1 to Length(s) do
    if s[i] in ['0'..'9'] then
      Result := Result + s[i];
end;

mal fix aus dem Kopf...

zusammenfalten · markieren

Delphi-Quellcode:

var s:string;
    p:integer;

s:='2007-06-10 20:05';
p:=length(s);
while p>0 do
begin
  if s[p] in ['a'..'z',' '] then
    delete(s,p,1);
  else
    dec(p);
end;

//roter kasten - egal, lösung ist anders

HTH Frank

Zitat von _frank_:

egal, lösung ist anders

Jepp, ich finde es immer gut, wenn mehrere Lösungswege aufgezeigt werden.

Supi, vielen Dank.
Das ging ja warnsinnig schnell

Hätte gedacht das es wie in PHP einen Definitionsrahmen gibt

Gruß
Benny

Was meinst Du mit "Definitionsrahmen"?

Hier habt ihr noch was zum drüber meditieren:

zusammenfalten · markieren

Delphi-Quellcode:

function ExtractDigits(const s: string): string;
var
  i, iLength: Integer;
begin
  SetLength(Result, Length(s));
  iLength := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0'..'9'] then
    begin
      Inc(iLength);
      Result[iLength] := s[i];
    end;
  SetLength(Result, iLength);
end;

Freundliche Grüße

Zitat von DeddyH:

Was meinst Du mit "Definitionsrahmen"?

Dazu hab ich leider momentan nur eine Prüfrutine gefunden

markieren

Code:

preg_match("=^[0-9]+$=i",$var)

aber nun gut so lange es funktioniert

Zu Regular Expressions gibt es AFAIK irgendwo 'ne Library als OpenSource. Aber ob sich das für eine Funktion lohnt...

Hallo,
Naja nicht notwendig!

Nur noch eine kurze Frage. Besteht die Möglichkeit eine Funktion zu globalisieren? Also das ich eine Unit mit nur Funktionen erstelle und diese einbinde?

Ich hab das schon versucht, habe aber kein Erfolg