delphi - Hvorfor stopper den ved det første fundne ord? - Udvikleren.dk

Tags: delphi

Bruger #1330 @ 23.08.03 15:53

Hej allesammen,

Sidder og er igang med at fikse noget highlight til et program, og er stødt ind i et problem.

Når jeg bruger denne kode:

Kode

Var
  I: Integer;
  S: string;
  o: integer;
  m: integer;
  lnLength: Integer;
  lnStart: Integer;
  Length: integer;
  n: integer;
Begin
  For n:= 0 -1 To Line do
  Begin
    s:= TChannel(MainForm.MDIChildren[MDIChild]).Richedit.Text;
    Lnstart:= MainForm.GetLength(S);
  End;
  length:= MainForm.GetLength(s);
  lnstart:= lnstart +1;
  lnLength:= MainForm.GetLength(TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Lines.ValueFromIndex[line]);

  For I:= 0 to MainForm.highlight.Count -1 Do
  Begin
    Repeat
      O:= Pos(LowerCase(MainForm.highlight.ValueFromIndex[I]), Lowercase(TChannel(MainForm.MDIChildren[MDICHild]).RichEdit.Lines.ValueFromIndex[Line]));
      M:= MainForm.GetLength(MainForm.highlight.ValueFromIndex[i]);
      Try
        TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelStart:= O;
        TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelLength:= M;
        TChannel(MainForm.MDIChildren[MDIchild]).Richedit.SelAttributes.Color:= MainForm.HighlightText;
      Finally
        TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelStart:= lnStart;
        TChannel(MainForm.MDIChildren[MDIChild]).Richedit.Sellength:= lnLength
      End;
    until pos(MainForm.highlight.ValueFromIndex[I], TChannel(MainForm.MDIChildren[MDIchild]).RichEdit.Lines.ValueFromIndex[Line]) = 0;
  End;
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelStart:=  lnLength;
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelLength:= 0;
End;

Stopper koden når den har fundet det første ord den genkender.
Jeg har prøvet at bytte om på rækkefølgen af ord osv, men stadig uden resultat.
Den tstringlist den henter de ord der skal genkedes har 3 entries, som den henter gennem en .ini fil.
Hvis jeg bytter om på rækkefølgen af dem i inifilen, finder den bare det første ord, og stopper igen.

Med venlig hilsen
Ken Christensen

3 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma

Sorter efter stemmer Sorter efter dato

Bruger #1330 @ 23.08.03 21:45

659

Har ændret en hel del på koden, men kan stadig ikke få det til at virke..
den nye kode er her:

Kode

Procedure DoHighlight(mdichild, line: integer); 
Var 
  I: Integer; 
  o: integer; 
  M: integer; 
  s: string; 
  lnstart: integer; 
  lnlength: Integer; 
  Text: Integer; 
Begin 
  Text:=
MainForm.GetLength(TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Text);    
//Gets the length of all the text 

  For M:= 0 To TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Lines.Count -1
Do 
  Begin 
    lnstart:=
MainForm.GetLength(TChannel(MainForm.MDIChildren[MDIChild]).Richedit.Lines.Names
[M]); 
  End; 
  lnstart:= lnstart + 1; //Makes it the start of the line, and not the end of
the line above. 

  For I:= 0 to MainForm.highlight.Count -1 Do 
  Begin 
    Repeat 
      O:= Pos(LowerCase(MainForm.Highlight.Names[I]),
LowerCase(TChannel(MainForm.MDIChildren[MDIChild]).Richedit.Lines.Names[Line]));

      if O > 0 Then 
      Begin 
        TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelStart:= lnStart; 
        TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelLength:=
lnLength; 
        TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelAttributes.Color:=
MainForm.HighlightText; 
      End; 
    Until Pos(LowerCase(MainForm.highlight.Names[I]),
LowerCase(TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Lines.Names[Line]))
= 0; 
  End; 
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelStart:= Text; 
  TChannel(Mainform.MDIChildren[MDIChild]).RichEdit.SelLength:= 0; 
End;

Problemet er at den ikke highlighter den linie hvor et af ordene er.
Stringlisten, highlight, indeholder følgende ord: "foo" & "bar"
& min linie i min richedit indeholder følgende ord: "[21:21] <foo> bar".

Med venlig hilsen
Ken Christensen

[Redigeret d. 23/08-03 21:45:14 af Ken Christensen]

Bruger #1330 @ 24.08.03 15:06

659

Har selv fundet fejlene

Til de intereserede er koden her:

Kode

Procedure DoHighlight(mdichild, line: integer);
Var
  I: Integer;
  m: Integer;
  s: string;
  L: Integer;
  start: Integer;
  Length: integer;
  Lines: Integer;
  o: integer;
Begin

  Lines:= TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Count;
  If Line > 0 Then
  Begin
    For O := 0 to Line -1 Do Begin
     TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Lines.Add(inttostr(MainForm.GetLength(TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Strings[O])));
     Start:= (Start + MainForm.GetLength(TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Strings[O]));
    End;
    Start:= Start + ((Line) *2);
  End
  Else
    Start:= 0;

  Length:= MainForm.GetLength(TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Strings[Line]);
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Lines.Add('Start: ' + inttostr(Start));
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.Lines.Add('Length: '+ inttostr(Length));

  TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.SelSTart:= Start;
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelLength:= length;
  TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelAttributes.Color:= clgreen;

Med venlig hilsen
Ken Christensen

Bruger #1330 @ 24.08.03 15:58

659

Hmm,
Der manglede så lige noget..
Her er koden:

Kode

Procedure DoHighlight(mdichild, line: integer);
Var
  I: Integer;
  start: Integer;
  Length: integer;
  Lines: Integer;
  o: integer;
Begin
  Lines:= TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Count;
  If Line > 0 Then
  Begin
    For O := 0 to Line -1 Do Begin
     Start:= (Start + MainForm.GetLength(TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Strings[O]));
    End;
    Start:= Start + ((Line) *2);
  End
  Else
    Start:= 0;
  For I:= 0 To MainForm.highlight.Count -1 Do
  Begin
    Length:= MainForm.GetLength(TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.Lines.Strings[Line]);
    TChannel(MAinForm.MDIChildren[MDIChild]).RichEdit.SelSTart:= Start;
    TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelLength:= length;
    TChannel(MainForm.MDIChildren[MDIChild]).RichEdit.SelAttributes.Color:= MainForm.highlightText;
  End;
End;

Med venlig hilsen
Ken Christensen

Hvorfor stopper den ved det første fundne ord?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler