String kürzen??

[AgentAS]

Hallo Leute,

ich möchte gerne in einem übergebenen String das erste Wort weglassen.

z.B: Edit1.Text := 'Hallo wie gehts';
Edit2.Text := 'wie gehts';

Also in diesem Fall soll aus dem Edit1 der string ohne Hallo an Edit2 übergeben werden.

Gibt es da in Delphi eine Funktion die das erledigt?

Gruß Andreas

[sakura]

Nicht eine, aber zwei

Delphi-Quellcode:

function StripIt(InStr: String; StripAt: Char = ' '): String;
var
  I: Integer;
begin
  I := Pos(StripAt, InStr);
  if I > 0 then
    Result := Copy(InStr, Succ(I), MaxInt)
  else
    Result := '';
end;

aufrufen mitEdit2.Text := StripIt(Edit1.Text); ......

[AgentAS]

dann bedanke ich mich mal.

bis zum nächstenmal

Gruß Andreas

[Sanchez]

Zitat von sakura:

Result := Copy(InStr, Succ(I), MaxInt)

Was macht dieses Succ(i). Die Delphi Hilfe sagt mir

Code:

Succ gibt den Nachfolger des Arguments X zurück.

X ist ein Ausdruck von einem ordinalen Datentyp (einschließlich Int64). Der zurückgegebene Wert ist der Nachfolger von X und hat denselben Datentyp. Verwenden Sie Succ nicht für Eigenschaften, für die eine Zuweisungsprozedur definiert ist.

Was bedeuted in diesem Zusammenhang der Nachfolger??

grüße, daniel

[Tpercon]

Liefert dir i + 1 (also der nächste Wert) zurück.

[sakura]

Tpercon hat es schon richtig gesagt.

In diesem Falle speichert I die Position des Leerzeichens. Succ(I) is also das nächste Zeichen im String, Pred(I) wäre das vorhergehende. Man hätte auch I+1 bzw. I-1 nutzen können.

......

[AgentAS]

hm,

hab da leider ein kleines Problem.

Wenn ich der Funktion folgendes übergebe:

Edit2.Text := StripIt(Edit1.Text, 'Hallo ');

erhalte ich eine Fehlermeldung Incompatible Typen Char und String!!!


Muss ich irgend eine Unit in die Uses Klausel eintragen damit ich die Funktion erhalte?

Weil hab sie nämlich in meine unit eingebaut.

Gruß Andreas

[Tpercon]

Ganz einfach! Das Trennzeichen darf nur ein Zeichen (daher Char) sein! Du hast ganze 6 Zeichen übergeben.

[sakura]

Du hast geschrieben, daß Du das erste WORT weglassen willst, also habe ich nach Leerzeichen gesucht.

......

[AgentAS]

na dann

habs verstanden. Danke