buchstaben aus String rausfiltern ??

[inherited]

Intern setzt Delphi '0' eben in seinen ASCII-Code um, warum also alles verkomplizieren?

[3_of_8]

Bei meiner Methode benutzt Delphi keine größer-/kleiner-Vergleiche, sondern ein set. (Effektiv ein Bitvektor)

Das ist sogar um einiges schneller als die Vergleichsmethode.

[marabu]

Guten Morgen,

noch eine Methode:

Delphi-Quellcode:

function FloatStr(const s: string): string;
var
  value: Extended;
  index: Integer;
begin
  Result := s;
  Val(s, value, index);
  if index > 0 then
    SetLength(Result, Pred(index));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  Edit2.Text := FloatStr(Edit1.Text);
end;

Grüße vom marabu

[3_of_8]

Das dürfte aber relativ langsam sein, und außerdem wird dadurch '4a2' zu 4 und nicht, wie gewünscht, zu 42.

[eddy]

Hallo Leute,

scrat1979 hat die Lösung doch schon geliefert.

Delphi-Quellcode:

const
  AllowNumString        = '0123456789';


function StrToNum(s : string) : real;
var
  hs : string;
  i : integer;
begin
  s := trim(s);
  if length(s) > 0 then begin
    hs := '0';
    for i := 1 to length(s) do
      if Pos(s[i], AllowNumString +'.') > 0 then hs := hs + s[i];
    Result := StrToFloat(hs);
  end
  else Result := 0;
end;

//Nutzung:
// ....
  Edit2.Text := FloatToStr(StrToNum(Edit1.Text));

mfg

[dominikkv]

ähm... du weist einer caption nen real-typ zu?

also ich würds so machen:

Delphi-Quellcode:

function CleanString(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;

[marabu]

Hallo Eddy,

Scrat hat in seinem Beitrag einen Lösungsansatz gezeigt und nicht "die Lösung" - das ist ein feiner Unterschied.

Hinzu kommt, dass es nicht leicht ist aus unvollkommenen Aufgabenbeschreibungen sinnvolle Schlüsse zu ziehen. Ich habe den Eröffnungsbeitrag so interpretiert: Aus einer Zeichenkette soll die am Anfang stehende und in der Regel durch ein Leerzeichen abgetrennte Kommazahl (im internen Format, d.h. Dezimalpunkt) extrahiert werden. Testen würde ich mit der Zeichenkette '4.56 Pflanzenschutz E605' und als Ergebnis erwarte ich '4.56' und nicht '4.56605'.

In deinem Beispielaufruf versuchst du einen Gleitkommawert an eine String-Property zuzuweisen. Und wenn du eine Gleitkomma-Funktion bereitstellst, dann sollte das Ergebnis besser Double oder Extended sein, damit nicht unnötig Genauigkeit geopfert wird.

@Manuel: Der Set-Test und Val() sind vom Laufzeitverhalten her und im Rahmen der Messgenauigkeit gleichwertige Ansätze, deshalb habe ich meine Funktion vorgestellt.

Freundliche Grüße

[dominikkv]

und ich habs so verstanden das er nen string hat:

Zitat:

'g53b43.35fg.43.gf78r7trfrz37.8'

und dort dann nur die zahlen und punkte haben will, also:

Zitat:

'5343.35.43.78737.8'

ich wär mal dafür das die aufgabe genauer beschrieben wird

[monstaa]

jau vielen dank, endlich mal eine community die einem helfen

also es sind codes die vllt. versteckt sind ect. ich kann dazu nicht mehr sagen es kann vorkommen das
40.4 - 45.15 oder ähnliches vorkommen kann, ichh ab das - ersetzt mit einem ' ' leerzeichen damit alles klappt