String formatieren (nur Zahlen)

[bennle]

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

[DeddyH]

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

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;

[_frank_]

mal fix aus dem Kopf...

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

[DeddyH]

Zitat:

Zitat von _frank_

egal, lösung ist anders :wink:

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

[bennle]

Supi, vielen Dank.
Das ging ja warnsinnig schnell :)

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

Gruß
Benny

[DeddyH]

Was meinst Du mit "Definitionsrahmen"?

[marabu]

Hier habt ihr noch was zum drüber meditieren:

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

[bennle]

Zitat:

Zitat von DeddyH

Was meinst Du mit "Definitionsrahmen"?

Dazu hab ich leider momentan nur eine Prüfrutine gefunden

Code:

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

aber nun gut so lange es funktioniert :)

[DeddyH]

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

[bennle]

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 :(

[DeddyH]

Klar geht das. In den Interface-Teil kommen die Funktionsköpfe (also die Definition des Aufrufs) und in den Implementation-Teil die eigentlichen Funktionen.

[Matze]

Die Suche hilft. ;)

Aber bitte zukünftig für eine Frage, die nicht direkt mit dem Thema zu tun hat, einen eigenen Thread erstellen, damit das Suchen einer Lösung leichter fällt und nicht alles durcheinander ist.

[DeddyH]

Hier noch schnell ein Beispiel:

Delphi-Quellcode:

unit Blubb;

interface

uses Windows; //oder was gerade gebraucht wird, eine Unit muss es mindestens sein

function doppelt(i: integer): integer;

implementation

function doppelt(i: integer): integer;
begin
  Result := i * 2;
end;

[bennle]

Hallo,
Klasse! Ihr seid einfach der Wahn :thumb:

Normal verwende ich auch die Suche! Bin ja schließlich nicht zu faul :gruebel:

Gute Nacht zusammen.