TEdit сохранение в файл и чтение при загрузке

[Casper-SC]

Я пишу будильник, в нём есть поле для ввода сообщения (TEdit) которое появится в установленое время вместе с воспроизведением музыки, так вот суть вопроса - как сохранить в файл текст введённый в TEdit, а потом при запуске, если файл существует загрузить его?
Кстати и путь к музыке тоже в TEdit.

[Alex21]

Предпочтительней использовать типизированные файлы, но можно просто создать список в ТХТ:
==============
4.06.2007
12:00:00
C:\deep_purple.mp3
5.06.2007
14:00:00
C:\deep_purple.mp3
==============
В данном примере грузишь файл в мемо, колво строк делишь на 3 (дата, время, мп3), этим получаешь кол-во заданий.
А потом делаешь вывод в едиты:

Edit1.text:=Memo1.Lines[i*3] - вывод даты
Edit2.text:=Memo1.Lines[i*3+1] - вывод времени
Edit3.text:=Memo1.Lines[i*3+2] - вывод мп3

А сохранять аналогично:

Memo1.Lines[i*3]:=Edit1.text; - save даты

[Casper-SC]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i : array[0..2] of string;
begin
Memo1.Lines[i*1] := Edit3.Text;
Memo1.Lines[i*2] := Edit4.Text;
Memo1.Lines.SaveToFile('seting.txt' );
end;

Чёто я ничё не понял, так не работает, как я сделал. Потому и задал такой вопрос, потому-что не шарю как это делается.
Перепробовал кучу вариантов, которые приходили мне в голову и не один не прокатил.
Особенно не понятно [i*3], [i*3+1] чё это вообще за нафиг

[Alex21]

Посмотри, может поможет:
http://www.delphikingdom.ru/asp/view...?catalogid=843
http://ww.delphimaster.ru/articles/saveparam/index.html

[zetrix]

Что-то не понимаю, зачем мудрить с MEMO? А ручками?

//запись
var f:textfile;
begin
assignfile(f,'config.txt');
rewrite(f);
writeln(f,edit1.text);
writeln(f,edit2.text);
...
writeln(f,editN.text);
closefile(f);
end;

//чтение
var f:textfile;
begin
if not(FileExists('config.txt')) then exit; //если файл не существует - выход
assignfile(f,'config.txt');
reset(f);
readln(f,edit1.text);
readln(f,edit2.text);
...
readln(f,editN.text);
closefile(f);
end;

[Casper-SC]

private
procedure GetSettins;
procedure SaveSettins;
public

end;

var
Form1: TForm1;
AlarmTime : TDateTime;
Message1 : string;

implementation

uses DateUtils, mmsystem,MessagePaintDialog, Unit3, Registry;
{$R *.dfm}


procedure TForm1.SaveSettins;
var
R : TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey('CasperSoftware\AlarmCloc k',True);
R.WriteString('AlarmClockMessage',E dit3.Text);
R.CloseKey;
R.Free;
end;

procedure TForm1.GetSettins;
var
R: TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey('CasperSoftware\AlarmCloc k', True);
Edit3.Text := R.ReadString('AlarmClockMessage');
R.CloseKey;
R.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveSettins;
end;

Вот где здесь ошибка не пойму, компилятор выдаёт ошибку при закрытии формы?

[Casper-SC]

Сообщение от Casper-SC

private
procedure GetSettins;
procedure SaveSettins;
public

end;

var
Form1: TForm1;
AlarmTime : TDateTime;
Message1 : string;

implementation

uses DateUtils, mmsystem,MessagePaintDialog, Unit3, Registry;
{$R *.dfm}


procedure TForm1.SaveSettins;
var
R : TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey('CasperSoftware\AlarmCloc k',True);
R.WriteString('AlarmClockMessage',E dit3.Text);
R.CloseKey;
R.Free;
end;

procedure TForm1.GetSettins;
var
R: TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey('CasperSoftware\AlarmCloc k', True);
Edit3.Text := R.ReadString('AlarmClockMessage');
R.CloseKey;
R.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveSettins;
end;

Вот где здесь ошибка не пойму, компилятор выдаёт ошибку при закрытии формы?

Ошибку я и сам нашёл.
Ошибка в том что я не правильно указал путь в реестре
R.OpenKey('CasperSoftware\AlarmCloc k', True);
а надо R.OpenKey('SOFTWARE\CasperSoftware\AlarmClock', True);

[Viteef]

Вот, можешь посмотреть исходник моего будильника. Там сохранение идет в типизированный файл.