schonmal vielen dank für die Antworten
also es ist nicht immer das letzte Zeichen, denn eine Klammer umgibt die Zahl z.B. (x 9) / (x 15).
ich werd das mit dem Memo gleich mal ausprobieren
/Edit
also memo eignet sich wohl besser als edit feld.
hab den code jetzt mal umgeändert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
r : real;
s, hs: string;
begin
// ....
for i := 0 to mem.Lines.count - 1 do begin
s := mem.Lines.Strings[i];
hs := '';
for j := 1 to length(s) do
if Pos(s[j], '0123456789+-.') > 0 then hs := hs + s[j];
if hs = '' then hs := '0';
listbox1.Items.add(hs);
end;
klappt wunderbar, vielen Dank
Mfg Q-Dog