Помогите прогу на Delphi7 написать ООООООчень надо!!!!!!!

А проблемка такая нужно создать простую форму регистрации и чтобы она сохранялась в файл и при каждом открытии проги считывались ранее занесеные данные....
Спасибо за помощь

Я чето с считыванием из файла не разбуресь...

дык делайте ини файл и пишите туда

if FileExists(ExtractFilePath(Application.ExeName)+'sender.ini') then
begin
Memo4.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'sender.ini');
Memo4.Lines.Add('');
Memo4.Lines.Add('');
Memo4.Lines.Add('');
Memo4.Lines.Add('');
Em:=Memo4.Lines.Strings[2];
i:= Pos(';', Em);
if i = 0 then
begin
ShowMessage('Îøèáêà â ôàéëå êîíôèãóðàöèè íåò ";"');
end;
Edit1.Text:= Copy(Em, 1, i - 1);
end
else
begin
Memo4.Lines.Add('');
Memo4.Lines.Add('');
Memo4.Lines.Add('');
Memo4.Lines.Add('');
ShowMessage('Îòñóòñâóåò Ôàéë êîíôèãóðàöèè, îí áóäåò ñîçäàí ïðè çàâåðùåíèè ðàáîòû');
end;

/// в другой форме были поля которые заполнялись
procedure TForm3.FormCreate(Sender: TObject);
var
Ad,Us,UA:string;
i,j,k:integer;
begin
Ad:=Form1.Memo4.Lines.Strings[0];
Us:=Form1.Memo4.Lines.Strings[1];
UA:=Form1.Memo4.Lines.Strings[3];
i:= Pos(';', Ad);
j:= Pos(';', Us);
k:= Pos(';', UA);

Edit1.Text := Copy(Ad, 1, i - 1);

Edit2.Text := Copy(Us, 1, j - 1);
Edit3.Text := Copy(UA, 1, k - 1);
end;

//из какойто старой программы

Сенька :) , а может еще знаете как сделать заполнение таблицы после каждого нажатия кнопки в следующую строку...
Надо чобы каждая запись писалась после предыдущей, даже если прога только открылась...
:rtfm:

какой таблицы? Dbgrid? или чего ?
или новая строка в мемо поле?
если мемо поле тосм выше..мемо.линес.адд('То что нвадо добавить');

просто таблица StringGrid и так , чтобы распчатать потом....
Можно просто в Word передавать в форму таблицы....

я спать..до завтра не разберетесь стучитесь в личку

Держите... исходники и ехешник

вот и помогай людям