Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / 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;

Vice____ (2007-11-18 03:17:00) [21]
а зачем тогда

> путь вписуется в fl[номер файла].fPrgPath

открыл и забыл или в StringList запихнул путь к файлу вот ета фигня тут нафига

> TFL = record
> fPrgPath: String;
> fFileName: String;
> end;
>
> var
> fl: array [0..MaxFileList] of TFL;
> flcount: Integer;

Vice____ (2007-11-18 03:16:00) [22]
а зачем тогда открыл и забыл или в StringList запихнул путь вот ета фигня

> путь вписуется в fl[номер файла].fPrgPath

.dn+ (2007-11-18 03:08:00) [23]

> Vice____

ну этот код...открывает файл с путями(ссылки) на разные файлы....потом
обрабатывается...путь вписуется в fl[номер файла].fPrgPath
а потом в fl[в этот же номер].fFileName := ExtractFileName(fPrgPath);
fFileName идёт в ListBox......и всё казалось бы проще некуда да не тут та было!!!!!

Vice____ (2007-11-18 03:03:00) [24]

> ну эт мне посвоему нужно...я просто скинул кусок процедуры

так а че он делает етот код может можна его попроще заделать и ошибки пропадут

.dn+ (2007-11-18 03:02:00) [25]
Удалено модератором

Elec3C (2007-11-18 03:01:00) [26]

> скинул кусок процедуры

ХМ:/ Что бы это могло значить???

Johnmen (2007-11-18 03:01:00) [27]
Да, что-то прикрыли. Видимо из-за лавинообразного наплыва страждущих.
Тогда здесь
http://www.citforum.ru/howto/smart-questions-ru.shtml

.dn+ (2007-11-18 02:57:00) [28]

> http://ln.com.ua/~openxs/articles/smart-questions-ru.html

не работает!!!! :(

.dn+ (2007-11-18 02:56:00) [29]

> lb_prg1.Clear;

ну эт мне посвоему нужно...я просто скинул кусок процедуры

Vice____ (2007-11-18 02:55:00) [30]

> memo: TMemo;

ето нафик тут вообще

> for i := 0 to memo.Lines.Count do

етот крутой ход, был уже озвучен

> lb_prg1.Clear;

вот ето черт его знает что но может и там что то сидеть

а что етот код хоть делает)

Johnmen (2007-11-18 02:54:00) [31]

> .dn+ © (18.11.07 02:53) [12]
> Да ты сам, когда-то ламером был и тоже задавал глупые вопросы!!!!!!

Это откуда у тебя такие сведения?
Но сегодня я добр. И даю тебе полезную ссылку. Читать целиком.
http://ln.com.ua/~openxs/articles/smart-questions-ru.html

.dn+ (2007-11-18 02:53:00) [32]

> Johnmen

Да ты сам, когда-то ламером был и тоже задавал глупые вопросы!!!!!!

.dn+ (2007-11-18 02:51:00) [33]
MaxFileList - это константа типа:

Const
MaxFileList = 40;

Johnmen (2007-11-18 02:50:00) [34]

> .dn+ © (18.11.07 02:47) [8]
> ты сюда людей выручать привалил или налругиваться...

ЛЮДЕЙ выручать. И над ламерами надругиваться.

> был бы я админом я бы тебя давно уже выкинул отсюда!!!!!!!!!!!!

Вот поэтому ты и не админ, однако.

Elec3C (2007-11-18 02:49:00) [35]
Число MaxFileList?

.dn+ (2007-11-18 02:47:00) [36]
Удалено модератором
Примечание: Только выкинут будешь ты

.dn+ (2007-11-18 02:46:00) [37]
а если в место мемо подставить stringlist тоже не пашит....
а вот так просто копирует: listbox.items.add(stringlist.lines); но мне нкжно вот с моей обработкой:

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

что делать фиг его....подскажите пожалуйста

Johnmen (2007-11-18 02:44:00) [38]

> Привет!!! Программеры!!! Коллеги!!!!!!

Тамбовский ламер тебе коллега! :)

.dn+ (2007-11-18 02:41:00) [39]
неа пишет ошибку, и пишет: EInvalidOperation

.dn+ (2007-11-18 02:39:00) [40]
Щас попробую...спасибо!!!!

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

Наверх

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