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