Originariamente inviato da web ces
ok ho fatto un casino tremendo...
ecco il mio codice...
codice:
procedure TForm1.scriviClick(Sender: TObject);
var
  file1: TStringList;
  testo: Tstrings;
  fnome: string;
begin
  fnome := nome.Text;  
  testo := txt.lines;  {<-- TMemo.lines}
  file1 := TStringList.Create;
  try
    file1.add(testo);  {non va! uncompatible 'string' e 'TStrings'}
    file1.SaveToFile(filenome);
  finally
    file1.Free;
  end;
end;
L'errore mi pare evidente: il metodo Add di TStringList accetta come parametro una stringa da aggiungere alla lista, mentre tu non stai passando una stringa bensì un oggetto di tipo TStrings, che fa riferimento all'oggetto TStrings della proprietà Lines del Memo.

Comunque, la proprietà Lines del Memo è di tipo TStringList, pertanto puoi salvare l'intero contenuto del Memo in un file di testo chiamando il metodo SaveToFile:
codice:
Memo1.Lines.SaveToFile('nomefile.txt');
Ciao!