открытие txt в Memo

[НиРа]

Доброго времени суток. Помогите ПОЖАЛУЙСТА! Работаю в Лазарусе. По заданию, в Memo должен открываться файл, путь к которому указан в таблице (банальная StringGrid если это поможет). Бьюсь над этим 3ий день - ни в какую >_< Выдает что-то вроде "Unable to open file {имя файла}"...
Кодов программы были разные, вот один из них:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Memo1.Clear;
  Form1.Memo1.Lines.LoadFromFile(StringGrid1.Cells[4,StringGrid1.Row]);
end;

[MadReason]

возможно просто путь к файлу указан не верно или файла нет, или столбец не тот. проекта нету, сказать тяжело что не так

[НиРа]

Ну столбец заполняется с помощью OpenDialog'а... Да и вообще, проверяла, путь введен верно... Да и файл никуда вроде не убегал...

[MadReason]

а может где-нибудь выше по коду блокируется файл? вплане открывается на запись и не закрывается,а вы повторно открываете. или что-нибудь подобное. может расширение файла не указано? или указано неверно. потому что код вроде должен работать если входные данные верные

[Stilet]

А я бы написал так:

procedure TForm2.Button1Click(Sender: TObject);
var s:string;
begin
   s:=StringGrid1.Cells[4,StringGrid1.Row];
   if FileExists(s) then with  Form1.Memo1.Lines.LoadFromFile(s);
end;

Если конечно Лазарь имеет такие функции.

[НиРа]

а может где-нибудь выше по коду блокируется файл? вплане открывается на запись и не закрывается,а вы повторно открываете. или что-нибудь подобное. может расширение файла не указано? или указано неверно. потому что код вроде должен работать если входные данные верные

Данные в таблицу попадали из Edit'а, в которую в свою очередь попадали из опендиалога, на котором есть фильтр на показ только txt файлов... Больше с этими данными ничего не делаю...

Сообщение от Stilet

А я бы написал так:

procedure TForm2.Button1Click(Sender: TObject);
var s:string;
begin
   s:=StringGrid1.Cells[4,StringGrid1.Row];
   if FileExists(s) then with  Form1.Memo1.Lines.LoadFromFile(s);
end;

Если конечно Лазарь имеет такие функции.

Написала так (ну только что без with, потому что лазарус на него ругался почему-то), теперь по нажатию на кнопку он просто ничего не делает...((
Или делает, только я этого не вижу...)

[MadReason]

значит адрес файла задается все таки неверно. если действительно хотите что бы что-нибудь подсказали, попробуйте выложить проект.
а может кодировка не та? я уже не знаю что еще)

[vovk]

Это всё изза кодировок
я так делал

 
 uses LConvEncoding; 
...
....

Var
strl_: TStringList;
file_name_, c_pg:string;

....
.....
if OpenDialog1.Execute then
begin
   file_name_:=UTF8ToSys(OpenDialog1.FileName);
  try
      try
   strl_:=TStringList.Create;
     strl_.LoadFromFile(file_name_);
     c_pg:=GuessEncoding(strl_.Text);
   Memo_text.Lines.Text := ConvertEncoding(strl_.Text, c_pg, EncodingUTF8);
      except
   ShowMessage('не удалось открыть файл');
       end;
   finally
strl_.Free;
   end;

тут исходник есть

кстати путьк файлу для системы тоже надо перекодировать, система ведь Windows?

[НиРа]

СПАСИБО ОГРОМНОЕ!!!!!!! Оно начало открывать!!!!!!!!