Tjek om der er foretaget ændringer i RichEdit

if RichEdit1.Modified then
begin
...
end;

// Jonat

Hej Jonat. Ja, den kendte jeg. Men det er lidt overkill synes jeg, at skulle skrive :

if RichEdit.Modified then
DocMod := 1;

Findes der ikke blot en funktion, der sender en værdi tilbage hvis der er foretaget ændringer?

Hvis ikke, så er din løsning naturligvis fuldt acceptabel alligevel :)

Du kan bruge eventen OnChange og heri sætte DocMod=1, men jeg kan ikke se, det er bedre end forslaget fra webcreator.

Undskyld. Forslaget var fra jonat :-)

NCA > Jeg vil da betegne dit forslag som noget simplere. Det gælder jo om at optimere hvor man kan :)

NCA > Hm, har lige prøvet dit forslag. Det virker ikke. Jeg har naturligvis lavet variablen;

  DocMod: Integer;

Hm, jeg har tilføjet Jonat's i min FormCreate. Men her virker det ikke. Burde det ikke være placeret dér ?

Jeg forstår ikke spørgsmålet.

if RichEdit1.Modified then

kan bruges til at teste uden variabel.

if RichEdit1.Modified then DocMod := 1;

laver en ny variabel som kan testes på.

Er det:

DocMod := IfThen(RichEdit1.Modified, 1, 0);

du leder efter ?

Hej igen.
Jeg har fundet ud af det. Jeg vrøvlede lidt :)

Jeg har placeret flg. sætning i min TForm1.RichEditChange :
  if RichEdit.Modified then
  DocMod := 1;

Dette virkede helt efter hensigten :)

webcreator -> under din TForm1.RichEditChange behøver du ikke lave  if RichEdit.Modified then
  DocMod := 1;
du behøver kunn at skrive DocMod := 1;

fordi lige så snart at der er skrevet et bogstav, så kalder den proceduren TForm1.RichEditChange og sætter RichEdit.Modified til true.
Selvom du så sletter de bogstaver som der er blevet skrevet, vil den ikke sætte RichEdit.Modified til false igen. Så du kan bare nøjes med DocMod := 1 under TForm1.RichEditChange. :-)
Så sparer du den IF sætning :-)

// Jonat