Эксперементировал с написанием прог на lazarus под WM5 все отлично работает. Компоненты кнопочки и тому подобное. Но нужно было сохранять и открыть файл и считытать от туда данные и столкнулся с такой проблемой:
- Код: Выделить всё
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
ComboBox1: TComboBox;
Label2: TLabel;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
F:File of string;
s:string;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AssignFile(F, 'input.txt');
Reset(F);
Read(F,s);
CloseFile(F);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
If OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Read(F,s);
CloseFile(F);
end;
Загрузил в КПК и дальше вот что:
При нажатии Button2 программа выдает ошибку "File not found" хотя в папке с экзашником находится файл input.txt
При нажатии Button3 программа ничего не выполяет а просто подвисает
и приходится убивать процесс.
Если надо прописать путь файлу то как это зделать, а то пробывал по разному не получается, но проблема скорее всего в другом.
Без использования доступа к файлу повторюсь все отлично работает с разными компонентами.
Заранее благодарен за помощь.
