TeilString aus Stringliste Löschen

[Spezi1980]

Zitat von Sharky:

Zitat von Susanne:

... vielleicht ein Beispiel oder noch ein paar Tips?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  code : Integer;
  zahl : Integer;
begin
  s:='bbbb : 12345678_sged 233';
  s:=Copy(s,Pos(':',s)+1,Length(s));
  val (s,zahl,code);  // Es wird versucht einen String in eine Zahl zu wandeln
  if (code = 0) then // String konnte in eine Zahl umgewandelt werden
  begin
    ShowMessage (IntToStr (zahl));
  end
  else
  begin
    s := Copy (s,1,code-1);
    ShowMessage ('Ohne Zeichen ist es' + s);
  end;
end;

oder so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  code : Integer;
  zahl : Integer;
  I    : Integer;
begin
  s:='bbbb : 12345678_sged 233';
  s:=Copy(s,Pos(':',s)+1,Length(s)); //alles vorm Doppelpunkt löschen
  s:= trim(s); //leerzeichen löschen
  for I:=0 to length(s) do 
  begin //jedes Zeichen testen, ob Zahl
    if not (S[i] in ('1'..'9','0')) then
    begin
      s := copy(s,1,I-1); //alles in s kopieren was Zahl ist
      Break;
    end;
  end;
end;

(kann noch Fehler enthalten, hab das jetzt mal schnell Quick&Dirty ohne Delphi gemacht)