procedure TForm1.btnSaveClick(Sender: TObject);
var
fs : TFileStream;
begin
if SaveDialog1.Execute then begin
fs := nil;
try
fs := TFileStream.Create( Utf8ToAnsi(SaveDialog1.FileName), fmCreate);
RichMemo1.SaveRichText(fs);
except
end;
fs.Free;
end;
end;
Vi chiedo scusa ho dimenticato di specificare che per questo progetto non sto usando Lazarus ma Typhon per il semplice fatto che possiede un componente chiamato RichMemo che a differenza del RichView permette di editare il testo a runtime. Quindi non posso usarela funzione savehtml.
Scusate ancora e grazie.
Grazie DragoRosso si in effetti adesso funziona va a capo, rimane il problema dei caratteri accentati
Ho provato a cambiare il tipo di carattere: memo.Font.Name := 'Arial'; ma non succede niente nel senso che non cambia neanche il tipo di carattere.
Provo a fare qualche altro esperimento se avete un idea fatemolo sapere.
Grazie a tutti.