buchstaben aus String rausfiltern ??

[monstaa]

Hi

ich hab etwas vor: in einem Edit feld (Edit1.Text) steht z.b. 10.04 Parallel so. ich möchte alle buchstaben rausfiltern. aber die "." behalten. ich habs versucht mit StrToInt aber das ging nicht war nur fehler usw.

aso das ganze soll in der Edit2.Text formatiert wieder erscheinen. Wie stelle ich das an ??

[inherited]

Du gehst den String Zeichen für Zeichen durch und schaust, ob der Char(an den kommst du mit Stringname[i], wobei Stringname[1] das erste Zeichen ist) in ['1'..'9'] oder '.' ist. Wenn ja, fügst du das zeichen einem neuen String hinzu.

[monstaa]

hmmm wenn das so leicht gehen würd. ich hab gerade nen prob

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin

x := length(Edit1.Text);
  showmessage(x);
end;

ich will wissen wieviele zeichen Edit1.Text hat. da kommt nen fehler : [Fehler] Unit1.pas(33): Inkompatible Typen: 'String' und 'Integer'

[3_of_8]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
  x:=length(inttostr(Edit1.Text));
  showmessage(x);
end;

Bzw. leichter:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(length(inttostr(Edit1.Text)));
end;

Tipp: Grundlagentutorial auf dsdt.info.

[inherited]

nicht genug kaffee heute gehabt, was 3_of_8? :zwinker:
wenn dann

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(length(Edit1.Text)));
end;

[3_of_8]

Ja. Zu wenig Kaffee, zu viel Copy&Paste.

[scrat1979]

Vielleicht so?!? Sonst habe ich Dich nicht richtig verstanden...

Delphi-Quellcode:

[...]
edit2.Text := '';
for i := 1 to length(edit1.text) do begin
 if (edit1.Text[i] in ['0'..'9', '.']) Then Edit2.Text := Edit2.Text + edit1.text[i];
end;
[...]

... dabei werden alle Zeichen außer 0-9 und der Punkt herausgefiltert. Zumindest sollte dies die Funktion machen :-)

SCRaT

[monstaa]

@scrat ich werde es gleich mal probieren

ich hab nämlich ein prob:
der filtert nich alle buchstaben raus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x:string;
    y:string;
    i:Integer;
    j:Integer;
begin

//x := length(Edit1.Text);
x := Edit1.Text;
y := IntToStr(Length(x));
j := StrToInt(y);

  //ShowMessage(y);

 for i := 1 to j do begin
    //ShowMessage('hi '+IntToStr(i));
      case x[i] of
         'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h',
         'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p',
         'q', 'r', 's', 't', 'u', 'v', 'w', 'x',
         'y', 'z': Delete(x, i, 1);

      end;

  end;
 StaticText1.Caption := x;
end;

[3_of_8]

Du hast die Großbuchstaben vergessen. Übrigens geht das auch einfacher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s, t: String;
    I: Integer;
begin

  t:=Edit1.Text;

  for I:=1 to length(t) do
    if not (t[I] in ['A'..'Z', 'a'..'z']) then  //Man kann hier noch 'Ä'..'Ü', 'ä'..'ü' hinzufügen
      s:=s+t[I];

  StaticText1.Caption := s;
end;

[PigfaceJoe]

Hi, es geht auch mit dem netten ASCI Code:

Delphi-Quellcode:

function getbuchstaben(s:string):string;
var z:integer;r:string;
begin
r:='';
for z:= 1 to length(s) do
begin
if ((ord(s[z])>=65) and (ord(s[z])<=90)) or ((ord(s[z])>=97) and (ord(s[z]) <=122)) or (ord(s[z])=46)  then
r:=r+s[z]
end;
result:=r;
end;

Habs jetz zwar nicht getestet, aber dieser Code sollte alle Buchtaben und Punkte herausfiltern,
Gruss
PigfaceJoe

[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 :stupid:

[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 :)