Nur Zahlen aus einem String zulassen

[Die Muhkuh]

Das

function OnlyNumbersInString (const aValue : String) : String; mit dem Austauschen:

procedure OnlyNumbersInString(var aValue : String); Zug angekommen?

[SirThornberry]

besser so:
function OnlyNumbersInString (const aValue : String) : String; mit dem Austauschen:

procedure OnlyNumbersInString(var aValue : String);

[emsländer]

Zitat von SirThornberry:

besser so:
function OnlyNumbersInString (const aValue : String) : String; mit dem Austauschen:

procedure OnlyNumbersInString(var aValue : String);

schon kapiert...... war ne Vollmondnacht....


Vielen Dank


Gruss

EL

[Klaus01]

Da das ganze ein Funktion sein soll,
sollte diese auch etwas zurückgeben.

Delphi-Quellcode:

function OnlyNumbersInString (const aValue : String) : String; 
var 
  i: integer; 
  aChars : TSetofChars; 
begin 
  aChars := ['0'..'9']; 
  result :='';
  for i := 1 to Length(aValue) do 
  begin 
    if (aValue[i] in aChars) then 
    begin 
      result := result + aValue[i]; 
    end; 
  end; 
end;

.. dann kannst Du das const in der Parameterlist auch
stehen lassen.

Grüße
Klus

[SirThornberry]

dann würde ich es widerum so machen:

Delphi-Quellcode:

function OnlyNumbersInString(aValue: String): String; 
var 
  i, j: integer; 
  aChars : TSetofChars; 
begin 
  aChars := ['0'..'9']; 
  j := 0;
  for i := 1 to Length(aValue) do 
  begin 
    if (aValue[i] in aChars) then 
    begin 
      inc(j);
      aValue[j] := aValue[i];
    end; 
  end; 
  //Variante1
  SetLength(aValue, j);
  result := aValue;
  //Variante2
  result := copy(aValue, 1, j);
end;

[Ralf Stehle]

ich habe das so gelöst:

Delphi-Quellcode:

  strOld := 'abe02356';

  for i:=0 to Length(strOld) do
  begin 
    if strOld[i] in ['0'..'9'] then strNew := strNew + strOld[i]; 
  end;

[DeddyH]

Na gut, dann bring ich auch noch einen:

Delphi-Quellcode:

function OnlyNumbersInString(const aValue: String): String;
const aChars = ['0'..'9'];
var
  i, j: integer;
begin
  SetLength(Result,Length(aValue));
  j := 0;
  for i := 1 to Length(aValue) do
  begin
    if (aValue[i] in aChars) then
    begin
      inc(j);
      Result[j] := aValue[i];
    end;
  end;
  SetLength(Result, j);
end;