TeilString aus Stringliste Löschen

[Sharky]

Zitat von Susanne:

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

Büdde:

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;

[Edit]Wenn in der Variabel code eine Wert >0 steht gibt dieser die Position+1 im String an bei der die Umwandlung fehlgeschlagen ist. In deinem Fall also das erste Zeichen welches keine Zahl ist.