| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Открытие файла [D7, WinXP]

Страницы:   < 1 2 3 >

.dn+ ©   (2007-11-18 02:16:00) 

Привет!!! Программеры!!! Коллеги!!!!!! Не могу прохавать, где тут ошибка!!! Помогите плз!!!! Вот код:

-------------------------------------------------

 TFL = record
   fPrgPath: String;
   fFileName: String;
  end;

var
 fl: array [0..MaxFileList] of TFL;
 flcount: Integer;

procedureTForm1.btn_open1Click(Sender: TObject);
var
 memo: TMemo;
 I: Integer;
begin
lb_prg1.Clear;
flcount := -1;
memo := TMemo.Create(Self);
OpenDialog1.Filter := 'Ñïèñîê|*.des';
ifOpenDialog1.Execute then
  memo.Lines.LoadFromFile(OpenDialog1.FileName);
fori := 0 tomemo.Lines.Count do
    begin
   fAddFile(memo.Lines.Strings[i]);
    end;
memo.Free;
end;

procedureTForm1.fAddFile(fname: String);
begin
flcount := flcount + 1;
fl[flcount].fPrgPath := fname;
fl[flcount].fFileName := ExtractFileName(fname);
fUpgLists;
end;

---

Elec3C   (2007-11-18 02:39:00) [41]

memo.Lines.Count - 1

---

.dn+   (2007-11-18 02:24:00) [42]

ну хватит к словам предираться...я сюда за помощью пришол!!!

---

sniknik   (2007-11-18 02:23:00) [43]

> Не могу прохавать
пережовывай лучше... и дольше.

---

Страницы:   < 1 2 3 >

Наверх