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
