Nur Zahlen aus einem String zulassen

[Laufi]

Hallo Sharky

Ja ist gut ich wollte dich auch nicht kritisieren ich wollte nur nicht das man es dann falsch lernt weul viele machen es falsch :)

Liebe Grüsse
Laufi

[Die Muhkuh]

Hi,

könntest Du kurz erklären warum? Ich gehöre zu den Leuten, die es (noch) falsch machen ;)

[emsländer]

Hi,

dieses ,['0'..'9']); könnte man doch in die Funktion selbst einbringen? Denn die Funktion soll ja nur Zahlen rückliefern....
Dann hieße es nur noch:

Delphi-Quellcode:

procedure TForm1.TestButtonClick(Sender: TObject); 
begin 
  Edit2.Text := OnlyNumbersInString(Edit1.Text); 
end;

ansonsten Danke für die Hilfe!

Gruss

EL

[DeddyH]

Klar, was spricht dagegen?

[Meflin]

Zitat:

Zitat von Laufi

Ja ist gut ich wollte dich auch nicht kritisieren ich wollte nur nicht das man es dann falsch lernt weul viele machen es falsch :)

Es ist ja garnicht falsch und optimieren muss man da auch nix mehr.

Siehe dazu die Ergebnisse u.a. aus diesem Thread: http://www.delphipraxis.net/internal...t.php?t=130996

[Laufi]

Ja also man sollte aufpassen dass die länge von Strings und Arrays nur wenn wirklick notwendig geändert wird weil bei grössenänderungen normalerweise neuer speicher angefordert wird wenn es nicht gepuffert ist und die bytes kopiert werden müssen :)

Liebe Grüsse
Laufi

[emsländer]

Hi,

kleines Problem:

der Compiler meckert das an:

aValue[j] := aValue[i];

Der Linken Seite kann nichts zugewiesen werden.


ich hab das Ding jetzt so eingebaut:

Delphi-Quellcode:

function OnlyNumbersInString (const 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;
  SetLength(aValue, j);
end;

Gruss

EL

[Klaus01]

const aValue : String

versuche mal

Delphi-Quellcode:

var aValue:String

Grüße
Klaus

[SirThornberry]

schau dir nochmal genau an was ich da geschrieben habe. Bei mir ist es auch keine Funktion mehr sondern eine Procedure.

[emsländer]

Zitat:

Zitat von Klaus01

const aValue : String

versuche mal

Delphi-Quellcode:

var aValue:String

Grüße
Klaus

Bahnhof :wiejetzt:


Gruss

EL