RichEdit težave

Odpiranje, tiskanje, pisanje v datoteke in drugo.
Odgovori
Defcon
Prispevkov: 35
Pridružen: 08.03.2010 14:07:37

RichEdit težave

Odgovor Napisal/-a Defcon » 15.03.2010 11:07:30

Dobim incompatible types Tedit and Tcaption ko kompilam ......erm kje sm ga zalomil ?

Koda: Izberi vse

 procedure Mark(RichEdit1: TRichEdit; Input1: TEdit; Color: TColor; Style:
TFontStyles);


 var
 i, CharPos, CharPos2, noChars: Integer;
 s : string;
 begin
 s := Input1.Text;
 CharPos := 0;
 noChars := 0;
 for i := 0 to Pred(RichEdit1.Lines.Count) do
   noChars := noChars + Length(RichEdit1.Lines[i]);
 repeat
   CharPos2 := RichEdit1.FindText(s, CharPos, noChars, [stWholeWord]);
   CharPos := CharPos2+1;
   RichEdit1.SelStart := CharPos2;
   RichEdit1.SelLength := Length(Input1.Text);
   RichEdit1.SelAttributes.Color := clOlive;

 until charpos = 0;
end;



 procedure TForm1.RichEdit1Click(Sender: TObject);
  begin
Mark(RichEdit1, Input1.Text, clOlive, [fsItalic, fsBold]);
end;
 

PeJo
Prispevkov: 988
Pridružen: 08.01.2003 16:10:34

RichEdit težave

Odgovor Napisal/-a PeJo » 15.03.2010 11:26:02

Imaš

Koda: Izberi vse

procedure Mark(RichEdit1: TRichEdit; Input1: TEdit (TUKAJ imaš TEdit); Color: TColor; Style:TFontStyles);
noter pa pošiljaš tekst od edita ?!

Koda: Izberi vse

Mark(RichEdit1, Input1.Text (tule daj stran .text pa bo), clOlive, [fsItalic, fsBold]);
lp,
Peter
Včasih, se ti zdi, da znaš vse .... boom in se zbudiš

Defcon
Prispevkov: 35
Pridružen: 08.03.2010 14:07:37

RichEdit težave

Odgovor Napisal/-a Defcon » 15.03.2010 11:46:26

Erm ...samo text ki je zapisan v Teditu .... drugi text je sicer v Tmemo-tu zapisan....uglavnem sem tel klicat samo besedo iz ki jo uporabnik v TEditu zapise da jo pol TRichEdit uporabi za svoj search (pač highlightanje izbrane besede zapisane v Tedit okencku)

Defcon
Prispevkov: 35
Pridružen: 08.03.2010 14:07:37

RichEdit težave

Odgovor Napisal/-a Defcon » 15.03.2010 11:48:17

Sem opazil da mam faulty memmory in mi je dajalo se kopico drugih tezav...btw hvala :P

Defcon
Prispevkov: 35
Pridružen: 08.03.2010 14:07:37

RichEdit težave

Odgovor Napisal/-a Defcon » 15.03.2010 12:04:47

P.s. pozabil sem omenit da mi ne uspe highlightat samo iskane besese ..... mi zmeraj cel text zajame :/

Edit: Fixxed ...končno ..
Zadnjič spremenil Defcon, dne 15.03.2010 12:06:09, skupaj popravljeno 1 krat.

Defcon
Prispevkov: 35
Pridružen: 08.03.2010 14:07:37

RichEdit težave

Odgovor Napisal/-a Defcon » 17.03.2010 09:49:37

Erm mam še en majjjhn problemček :P ... Sicer ne spada več pod RichEdit sam nočem odpirat spet nove teme....No...uglavnem je problem ta da mi
zapiše append moj drugi text v isto vrstico namesto da bi skočil v novo in tam zapisal text. ...a moram prvo zapreti datoteko po tem ko zapišem prvi text noter in jo nato zopet odpreti ali je kje drugje problem ?

Koda: Izberi vse

 procedure TForm1.SaveFileClick(Sender: TObject);
var
  mojaDat : TextFile;
  text   : string;

begin
 AssignFile(mojaDat, 'SearchPoizvedba.txt');
 ReWrite(mojaDat);
 CloseFile(mojaDat);
  if SaveDialog1.Execute then
    Memo2.Lines.SaveToFile(saveDialog1.FileName);
     Append(mojaDat);
      WriteLn(mojaDat, Memo4.text);
       CloseFile(mojaDat); 

Defcon
Prispevkov: 35
Pridružen: 08.03.2010 14:07:37

RichEdit težave

Odgovor Napisal/-a Defcon » 17.03.2010 10:13:34

Hmm sm dodal umes en WriteLn(mojaDat, ' '); in skače prow ...sam nevem zakaj ni že od začetka... o beh :)

Odgovori