Подскажите по Delphi!

[vitalij-cher]

Вот процедура! Она записывает данные о открытие программы один раз в ini файл! как сделать чтобы записывалось каждое открытие программы (что бы если открыли её 10 раз так чтоб и было 10 записей а не одна)?
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var dir:string;
ConfigFile:TiniFile;
begin
dir:=GetCurrentDir;
ConfigFile:=TIniFile.Create(dir+'\C onfig.ini');
ConfigFile.WriteInteger('START','Co untStart',n+1);
ConfigFile.WriteString('START','Las tDate',DateToStr(Date));
ConfigFile.WriteString('START','Tim e',TimeToStr(Time));
ConfigFile.Free;
end;

[Jeni]

Наверно нужно вначале прочитать из файла, сколько раз до этого уже запускалась программа:
N := ConfigFile.ReadInteger('START','Cou ntStart',0);
а уже потом записывать новое значение:
ConfigFile.WriteInteger('START','Co untStart',n+1);

И еще, в коде есть строка dir:=GetCurrentDir;
Если перед выходом из программы не контролировать текущий каталог, то файл может создаваться в совершенно разных местах и, соответственно, счетчик потеряет всякий смысл. Тогда уж лучше писать в тот каталог, где лежит программа:
dir := ExtractFileDir(Application.ExeName) ;

[vitalij-cher]

Сообщение от Jeni

Наверно нужно вначале прочитать из файла, сколько раз до этого уже запускалась программа:
N := ConfigFile.ReadInteger('START','Cou ntStart',0);
а уже потом записывать новое значение:
ConfigFile.WriteInteger('START','Co untStart',n+1);

И еще, в коде есть строка dir:=GetCurrentDir;
Если перед выходом из программы не контролировать текущий каталог, то файл может создаваться в совершенно разных местах и, соответственно, счетчик потеряет всякий смысл. Тогда уж лучше писать в тот каталог, где лежит программа:
dir := ExtractFileDir(Application.ExeName) ;

надо что бы выводились в файле все запуски программы(дата и время) а не переписывались!

[vitalij-cher]

Помогите плиззззззз!

[D-mon]

Заведи себе файл *.log, и побайтно или строками записывай туда все запуски. *.ini это фал конфигурации, зачем его засорять? А в инишку записывай только последние параметры(последняя дата, время отрытия программы).

[vitalij-cher]

все всем спасибо сделал!

[Andrei]

Утебя данные пишутся в одни и те же ключи.
Чтобы данные писались в разные строки нужно назначать новые имена ключей наподабии такого:
запуск1:

ConfigFile.WriteString('START','Las tDate1',DateToSt r(Date));
ConfigFile.WriteString('START','Tim e1',TimeToStr(Ti me));

запуск2:

ConfigFile.WriteString('START','Las tDate2',DateToSt r(Date));
ConfigFile.WriteString('START','Tim e2',TimeToStr(Ti me));

...
и т.д.

Ну, а как программно менять имена ключей, надеюсь сообразишь сам

[Alter]

допустим есть файл с расширением Ini (хотя кто как хочет может назвать, иногда это неважно. Т.к вам может хочется скрыть смысл файла, структура всё равно будет Ini`шная).
[START]
date1=12.12.1999
Time1=15:22:15

Способ(Шаги):
1) Заводишь переменную типа TStrings для счёта запусков и нумерации. Допустим Ls :TStrings;
Она потребуется для счёта записей в файле, путём загрузки имён всех секций:

 
    Ls.Clear;
 Ini.ReadSection('START', Ls);

2) Переменую типа Integer, для занесения колличества записей:
{ Делим на два, т.к. по две записи(Хотя в Ini файлах есть функции и процедуры для хранения и чтения дат и времени) }

Cou := Ls.Count div 2;

3) Пишешь в Ini файл:

 
Ini.WriteString( 'START', 'Date'+IntToStr(Cou), DateToStr(Date) );
Ini.WriteString( 'START', 'Time'+IntToStr(Cou), TimeToStr(Time) );

Вот так .