var i: integer;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'myini.ini');
for i := 0 to FileListBox1.Count-1 do
Ini.WriteString('files', 'base' + IntToStr(i+1), FileListBox1.Directory);
Ini.Free;
INI для filelistbox
--------------------------
Код:
------------------------------------------
Код:
var
names: TStringList; i: integer;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'myini.ini');
ini.ReadSection('files', names);
for i := 0 to FileListBox1.Count-1 do
filelistbox1.Items.Add(ini.ReadString('files','base', names.Strings ) );
ini.Destroy;
names: TStringList; i: integer;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'myini.ini');
ini.ReadSection('files', names);
for i := 0 to FileListBox1.Count-1 do
filelistbox1.Items.Add(ini.ReadString('files','base', names.Strings ) );
ini.Destroy;
Код:
var Ini:TIniFile;
2. ты используешь TStringList, но не вызвал Create, надо так:
Код:
names:=TStringList.Create;
//твой код
names.Free;
//твой код
names.Free;
3. используй всегда Free, а не Destroy, так корректнее.
P.S. на будущее: 1) если выдает ошибку, то надо привести текст ошибки; 2) с подобными вопросами сюда http://forum.codenet.ru/showthread.php?t=35391
Ты в раздел Uses закинул IniFiles?
а можете еще подсказать: как сделать в ини чтобы он деректорию запоминал?
был с:\паскаль прописал с:\1\ после сохранение в ини так и осталось с:\1\
посибо!