Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Старые открытые файлы   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.017 c