Spezielle Memo Text suche?

[Volker Z.]

Hallo gee21,

vielleicht hilft Dir folgendes weiter:

Delphi-Quellcode:

function Split (const Find, Str : string; var Head, Tail : string) : Integer;
begin
  Result := Pos (LowerCase (Find), LowerCase (Str));
  if Result = 0 then
    Exit;

  Head := Copy (Str, 1, Result - 1);
  Tail := Copy (Str, Result + Length (Find),  Length (Str))
end;

Delphi-Quellcode:

Split ('bTeXt', 'ATEXTBTEXTCTEXT', s, t);
ShowMessage (s + ' ' + t);

gibt Dir folgendes aus: ATEXT CTEXT

Gruß