Форум: "Основная";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];
Вниз
Старые открытые файлы Найти похожие ветки
← →
GIMLI (2003-03-16 14:19) [0]Как организовать создание списка открытых ранее файлов, без использоания ini или реестра? Т.Е. если открыл в программе 4 текстовых документа и вышел из программы, опять зашел-то список не сохранился.
Т.Е. создавать новый список открытых файлов восле каждого запуска программы.
← →
Юрий Зотов (2003-03-16 14:40) [1]Вопрос сводится к следующему - как запомнить состояние программы, ничего не записывая на диск, но чтобы его можно было восстановить в следующем сеансе?
Ответ, надеюсь, ясен?
Если не ясен, то вот наводящий вопрос - ГДЕ программа может запоминать ЛЮБУЮ свою информацию, чтобы она сохранялась и при выключенном компьютере?
← →
jack128 (2003-03-16 17:31) [2]используй не реестр. не ини файлы, а какой нить свой формат файла, вот только зачем это надо, не понятно..
← →
MAN-In-RED (2003-03-16 17:41) [3]Нужно напаять специальную железяку, которая будет записывать на магнитную ленту имена этих 4-х файлов, и всунуть ее в какой-нибудь слот, ну и конечно же написать драйвер к ней, и продавать вместе с программой как комплектующее. Делов та...
> без использоания ini или реестра
Это мне действительно не понятно, почему?
← →
MAN-In-RED (2003-03-16 17:48) [4]Кстати, можно же и внутрь своей программы данные записать, ну или в обычный текстовый файл, это будет и не ini и не реестр…
← →
Palladin (2003-03-16 17:54) [5]
> GIMLI (16.03.03 14:19)
:)) не... ну сам ответил на свой вопрос :))
> создавать новый список открытых файлов восле каждого запуска
> программы.
где где...
в переменной string, мля, через заяпятую
← →
uw (2003-03-16 17:58) [6]Можно еще где-нибудь в интернете сохранить :(
← →
GIMLI (2003-03-16 18:33) [7]>palladin
До миня только это дошло уже давно:
var
i:string;
begin
i:=opendialog1.filename;
n1.caption:=opendialog1.filename;
но это показывает 1 открытый файл. А несколько (из opendialog1)?
← →
GIMLI (2003-03-16 18:35) [8]А может лучше
var
i:string;
begin
i:=opendialog1.FileName;
N1.caption:=i;
end;
← →
Palladin (2003-03-16 18:58) [9]OpenDialog1.Files.Delimiter:=",";
i:=OpenDialog1.Files.DelimitedText;
← →
GIMLI (2003-03-17 17:25) [10]Не понял
← →
Palladin (2003-03-17 17:44) [11]держи, Гимли, сын Глоина
type
TForm1 = class(TForm)
Button1: TButton;
MainMenu1: TMainMenu;
Files1: TMenuItem;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
m_LastFiles:TList;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
lc_MenuItem:TMenuItem;
i:integer;
begin
if OpenDialog1.Execute then
begin
if m_LastFiles.Count<4 then
begin
lc_MenuItem:=TMenuItem.Create(nil);
lc_MenuItem.Caption:=OpenDialog1.FileName;
Files1.Insert(0,lc_MenuItem);
m_LastFiles.Add(lc_MenuItem)
end else
begin
for i:=1 to 3 do TMenuItem(m_LastFiles[i-1]).Caption:=TMenuItem(m_LastFiles[i]).Caption;
TMenuItem(m_LastFiles[3]).Caption:=OpenDialog1.FileName;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
m_LastFiles:=TList.Create;
end;
← →
GIMLI (2003-03-17 21:24) [12]OK!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.206 c
