Einzelnen Beitrag anzeigen

HenKst

Registriert seit: 7. Jul 2008
113 Beiträge
 
#40

Re: Komplizierte suche in Memo ! Hilfe

  Alt 21. Nov 2008, 14:48
Zitat von Nitron:
wollte mich mal bedanke für die hilfe !

jetzt ist aber das problem immer noch da das wenn was findet mit *
z.b hier ein bespiel:

void REPSLCT(func_return_t* rep_select)
findet

eine bedienung soll ja sein das nix davor stehen darf !
also wenn das steht
func_return_t* dann soll er mir das anzeigen aber nich wenn davor was steht
wie gesagt, für solche ausnahmen musst du dir nen array bauen
in dem fall wäre das mit if (pos('/', str) > 0) and (pos('/', str) < pos('*', str)) vermutlich gelöst, aber es gibt bestimmt noch mehr solcher fälle

also bauen wir uns ne funktion

Delphi-Quellcode:
function AusnahmenFinden(arr: array of string; value: string): boolean;
var
  i: integer;
begin
  result:= false;
  for i:= 0 to high(arr) do begin
    if pos(arr[i], value) <> 0 then begin
      result:= true;
      exit;
    end;
  end;
end;
der übergibst du deinen ausnahmen array und die memozeile
und dann baust du sie in die if abfrage ein
Delphi-Quellcode:
      if
        (p > 0 ) and // '*' gefunden?
        (Pos( NichtFindenStr, str ) = 0 ) and // NichtFindStr nicht gefunden?
        (str[p+1] <> '*') and//'*' steht alleine?
        (pos(' ', str) > 1) and// kein leerzeichen nach dem ersten zeichen
        (not AusnahmenFinden(Ausnahmenarray, str))
      then
Zitat von Nitron:


und manchmal bleibt er bei einem stehen !

zb ich click auf weiter suche und er zeigt mir das zb an
void REPSLCT(func_return_t* rep_select)
und geht nicht weiter !
ist das vielleicht die letzte zeile in der sowas steht?
narf - not a real function
  Mit Zitat antworten Zitat