Цитата(Демо @ 3.4.2006, 21:27  ) | | Базу MS Access пытаешься загрузить? - Зря. |
Не, не пытаюсь. Расширение сам придумал (типа себя крутым программером чувствую  ). Надо попробовать расширение сменить.
| Цитата(Poseidon @ 3.4.2006, 21:20 ) | | Но вот то, что дело не в той строке, что ты привел - 99%. Посмотри на какой строке вылетает ошибка и все станет ясно. |
На этой и вылетает.
Добавлено @ 20:47
Не, смена расширения на txt не помогла. Вот вся процедура:
| Код |
procedure demo_load;
begin
if (fileexists('base.mdb')) then
begin
Form1.Memo1.Lines.LoadFromFile('base.mdb');
end;
end;
|
Вот что заметил: если файл он не находит, то всё нормально и выводит то, что забито в lines (очищать lines тоже пробовал, не помогает). А если файл нашёл, то ошибка.
Содержимое файла base.mdb случайно набранный текст в английской раскладке без каких-либо спецсимволов.
Ошибка вылетает во время прохода "Application.Initialize". Что-то я вообще ничего не понимаю.
Делфи седьмой стоит.
Для особо интересующихся выкладываю весь код. По себе знаю, что мутное это дело - в чужом коде разбираться. Если у кого желание будет - посмотрите.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Visible:=true;
button2.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
var t: textfile;
begin
assignfile(t,'base.mdb');
if (fileexists('base.mdb')) then
append(t)
else rewrite(t);
writeln(t,edit1.Text);
closefile(t);
edit1.Text:='';
edit1.Visible:=false;
button2.Visible:=false;
end;
procedure demo_load;
begin
if (fileexists('base.mdb')) then
begin
Form1.Memo1.Lines.LoadFromFile('base.mdb');
end;
end;
begin
demo_load;
end.
|
|
