|
Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
Delphi 3 Professional
|
Re: String formatieren (nur Zahlen)
10. Jun 2007, 19:08
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
|