Ich dachte mir ich mache nun kein neuer Eintrag auf da dieser noch so neu ist und es wieder um eine Text suche geht.
Ich habe einen Text. ATEXT
BTEXTCTEXT
Die 3 Texte sind eben nicht getrennt durch ein Sonderzeichen. Aber ich kenne Text A und C
Nun dachte ich, ich könnte das so lösen um so zumindest mal den ATEXT zu entfernen und ich dachte, ich erhalte dann: BTEXTCTEXT
function Split (AString : String) : String;
var iPos : Integer;
begin
iPos := Pos ('AText', AString);
if (iPos > 0) then
Result := Copy (AString, iPos + 1, Length (AString))
else
Result := 'Nee du Pfeife';
end;
Aufrufen wollte ich es dann so:
memo1.Text:= Split(memo1quell.text);
Aber da werde ich dann nur zur Pfeife deklariert
