Komplizierte suche in Memo ! Hilfe

[Nitron]

hier der

Delphi-Quellcode:

 function SuchenInMemo( Memo : TMemo; NichtFindenStr : string; LastFindLine : integer = -1 ) : integer;
var
  LineIdx : integer;
  str: string;
  p: integer;
begin
  LineIdx := LastFindLine + 1;
  Result := 0;
  while
    ( LineIdx < Memo.Lines.Count ) and
    ( Result = 0 )
  do
    begin
      str:= Memo.Lines[LineIdx];
      p:= Pos( '*', str);// '*' finden;
      if
        (p > 0 ) and // '*' gefunden?
        (Pos( NichtFindenStr, str ) = 0 ) and // NichtFindStr nicht gefunden?
        (str[p+1] <> '*') and//'*' steht alleine?
        (pos(' ', str) > 1)// kein leerzeichen nach dem ersten zeichen
      then
        begin
          Result := LineIdx;
          SelectLine( Memo, LineIdx );
        end
      else
        Inc( LineIdx );
    end;
end;

kannst du das verbessen so das er mir sowas auspuckt :

vor dem * irgendwas´(z.b u*) stehen und direkt nach dem *nix also nicht sowas u*u
und davor darf nicht stehen also nur sowas

u8*
u8* ;osos
darf er mir auspucken

das darf er mir nicht auspucken

han u8*

dann hätten wir eigentlich alles ich mache das array oder versuche das array zu machen ^^