Komplizierte suche in Memo ! Hilfe

[HenKst]

Delphi-Quellcode:

(p > 0 ) and // '*' gefunden?
   (not AusnahmenFinden(ausnahmen, copy(str, 1, p) )) and // keine ungewollten strings vor '*' 
then begin
  if p < length(str) then begin
    if (str[p+1] <> ' ') then begin//'*' ist nicht das letzte zeichen aber steht alleine 
      Result := LineIdx;
      SelectLine( Memo, LineIdx ); 
    end;
   end else begin //'*' ist das letzte zeichen
    Result := LineIdx;
    SelectLine( Memo, LineIdx );
  end;   
end;

Du kannst ja alles was nicht vorkommen darf in ausnahmen schreiben, also auch den NichtFindenString.
Der könnte dan auch als parameter rausfliegen^^

€dit
es fehlte ein end