zeichen beim errechnen nicht beachten

[Striker00]

ok das ist gut , dass funktioniert Nur jetzt noch ne kleien sache ... wenn ich nur "hallo" (oder anderes...) in die edit box schreib ohne das zeichen ^ dann löscht er mir einfach den ersten buchstaben^^ Kann man das auch noch verhindern ?

[Progman]

vorher abfragen mit Pos(AStr, '^') > 0; oder Pos(Edit1.Text, '^') > 0; ?

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

function RestString(const aStr: string;//Eingabestring
                    needle: char; //das gesuchte Zeichen
                    CountTrailing: integer //Anzahl der zu löschenden Nachfolgezeichen
                    ): string;
var iPos: integer;
begin
  iPos := Pos(needle,aStr);
  if iPos = 0 then
    Result := aStr
  else
    begin
      Result := Copy(aStr,1,iPos - 1);
      Result := Result + Copy(aStr,iPos + Succ(CountTrailing),Length(aStr));
    end;
end;

[Striker00]

So Ein gaaanz großes Danke an DeddyH !!!
Funktioniert jetzt alles so wie ich das will
Ich liebe diese community

[Striker00]

Hatt sich geklärt war zu doof die function richtig einzusetzen -.-