array ?

Lidt frihåndskodning :-)

i : integer;
st : string;

begin
  i := 0;
  st := '';
  While (i<length(test)) do
  begin
    if (test[i]>='0' and test[i]<='9') or test[i]='.' then st = st + test[i];
    inc(i);
  end;
end;

resultatet står så i variablen st efter løkken...

JP

Lidt frihåndskodning fra mig:
var
  i: Integer;
begin
  for i := Length(test) downto 1 do
    if not (test[i] in ['0'..'9','.']) then
      Delete(test, i, 1);

Og lidt herfra:
function TalOgPunktum(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;

ingen forklaring :-(

procedure TForm2.Button6Click(Sender: TObject);
var
  yid: string;
  i: Integer;
begin
  yid := memo1.Lines[3];
  for i := Length(yid) downto 1 do
    if not (yid[i] in ['0'..'9','.']) then
      Delete(yid, i, 1);
  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>memo2.Lines[0] := i;
  memo2.Lines[1] := yid;
end;

fejl:
[Error] Unit2.pas(67): Incompatible types: 'String' and 'Integer'

i er en integer (=1) men memo2.lines[0] er en string. Derfor.

Hvis du dropper linjen får du tal og . i memo2.lines[1]

procedure TForm2.Button6Click(Sender: TObject);
var
  yid: string;
  i: Integer;
begin
  yid := memo1.Lines[3];
  for i := Length(yid) downto 1 do
    if not (yid[i] in ['0'..'9','.']) then
      Delete(yid, i, 1);
    memo2.Lines[0] := inttostr(i);
  memo2.Lines[1] := yid;
end;

kfv..du må også gerne give mig et svar :)

svar