Пример 1

Выполнить 3 демонстрационных примера, с Примером 4 ознакомиться.

Данный способ основан на методах Memo: Memo1.Lines.SaveToFile(fileName); -сохранить в указанном файле и Memo2.Lines.LoadFromFile(fileName); - загрузить из файла в Memo2.

и может быть использован для записи текста(или данных) в файл и чтения из файла в

procedure TForm1.FormCreate(Sender: TObject);

var f:textFile;

fileName:string[25];

begin

fileName:='I:\c_memo.txt'; // имя файла выбрать свое(желательно на флеш)

{$I-}

if Memo1.Lines[0]<>'' then begin

{$I+}

Memo1.Lines.SaveToFile(fileName);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var f:textFile;

fileName:string[25];

begin

fileName:='I:\c_memo.txt';

begin

Memo2.Lines.LoadFromFile(fileName);

end;

end;

end.