Tre små spørgsmål???

1 + 2 :
  C:\Program Files\Borland\Delphi6\Demos\RichEdit
3 :
  I OnClose sætter du action := caFree;

Jens B

1. og 2. kan jeg ikke få til at virke. :( Den komme med en fejl...

Mvh
fun22

Så er det fordi du har pillet i Borlands oprindeliger demoer ...

kan du så ikke lige skrive koden og hvor de skal stå?

mvh
fun22

1)
RichEdit1.Print('');

2)
if SaveDialog1.Execute then
  RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

Det skal være sådan at der både er en gem og en gem som. Sådan at hvis man trykker på gem så skal den bare gemme filen (hvis der er blevet gemt før) ellers skal den åbne gem dialogen.

så skal du på en eller anden måde holde styr på om det er et nyt dokument. F.eks. kan du bruge en streng, der er tom hvis det er et nyt dokument.

FFileName : string;

når du opretter et nyt dokument sættes denne til en tom streng:

FFileName := '';

og når du skal gemme kan du tjekke om dokumentet har været gemt før

procedure TForm1.Save;
begin
  if FFileName <> '' then
    RichEdit1.Lines.SaveToFile(FFileName)
  else
    SaveAs;
end;

procedure TForm1.SaveAs;
begin
  if SaveDialog1.Execute then
  begin
    FFileName := SaveDialog1.FileName;
    RichEdit1.Lines.SaveToFile(FFileName);
  end;
end;

Lukker