Открытие файла

← →
.dn+ © (2007-11-18 02:16) [0]

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

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

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

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

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

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

← →
sniknik © (2007-11-18 02:23) [1]

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

← →
.dn+ © (2007-11-18 02:24) [2]

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

← →
Elec3C © (2007-11-18 02:39) [3]

memo.Lines.Count - 1

← →
.dn+ © (2007-11-18 02:39) [4]

Щас попробую...спасибо!!!!

← →
.dn+ © (2007-11-18 02:41) [5]

неа пишет ошибку, и пишет: EInvalidOperation

← →
Johnmen © (2007-11-18 02:44) [6]

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

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

← →
.dn+ © (2007-11-18 02:46) [7]

а если в место мемо подставить 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;

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

← →
.dn+ © (2007-11-18 02:47) [8]

Удалено модератором
Примечание: Только выкинут будешь ты

← →
Elec3C © (2007-11-18 02:49) [9]

Число MaxFileList?

← →
Johnmen © (2007-11-18 02:50) [10]

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

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

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

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

← →
.dn+ © (2007-11-18 02:51) [11]

MaxFileList - это константа типа:

Const
MaxFileList = 40;

← →
.dn+ © (2007-11-18 02:53) [12]

> Johnmen

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

← →
Johnmen © (2007-11-18 02:54) [13]

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

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

← →
Vice____ (2007-11-18 02:55) [14]

> memo: TMemo;

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

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

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

> lb_prg1.Clear;

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

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

← →
.dn+ © (2007-11-18 02:56) [15]

> lb_prg1.Clear;

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

← →
.dn+ © (2007-11-18 02:57) [16]

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

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

← →
Johnmen © (2007-11-18 03:01) [17]

Да, что-то прикрыли. Видимо из-за лавинообразного наплыва страждущих.
Тогда здесь
http://www.citforum.ru/howto/smart-questions-ru.shtml

← →
Elec3C © (2007-11-18 03:01) [18]

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

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

← →
.dn+ © (2007-11-18 03:02) [19]

Удалено модератором

← →
Vice____ (2007-11-18 03:03) [20]

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

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

← →
.dn+ © (2007-11-18 03:08) [21]

> Vice____

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

← →
Vice____ (2007-11-18 03:16) [22]

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

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

← →
Vice____ (2007-11-18 03:17) [23]

а зачем тогда

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

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

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

← →
.dn+ © (2007-11-18 03:20) [24]

ну это как-бы база для файлов...служит для проверки и так чтоб не парится с индексами

← →
.dn+ © (2007-11-18 03:27) [25]

ну тут же умные люди.....помогите пожалуйста!!!!

← →
Германн © (2007-11-18 03:32) [26]

> .dn+ © (18.11.07 03:27) [25]
>
> ну тут же умные люди.....помогите пожалуйста!!!!
>

Сформулируй задачу сначала.
То что ты до сих пор писАл - бред. Причём бред "в отрывках".

← →
.dn+ © (2007-11-18 03:35) [27]

> Германн

а что не понятно??? А как будет не бредова??

МНЕ НУЖНО С ФАЙЛА ОТКРЫТЬ СОХРАНЕННЫЕ ТУДА ПУТИ К РАЗНЫМ ФАЙЛАМ. И ПЕРЕПИСАТЬ В МАССИВ СТРОК....ВОТ И ВСЁ

← →
Vice____ (2007-11-18 03:36) [28]

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

как сказал так и получай
var
Form1: TForm1;
slFileName:TStringList; --> за ето я щас умру и прямо тут)
implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
slFileName.Append(OpenDialog1.FileName);
ListBox1.Items.Append(ExtractFileName(OpenDialog1.FileName));
end;

← →
Vice____ (2007-11-18 03:38) [29]

объяснялова я сам потерялся или спать нужно идти)

← →
Vice____ (2007-11-18 03:41) [30]

procedure TForm1.Button1Click(Sender: TObject);
var
sl:TstringList;
i:integer;
begin
if OpenDialog1.Execute then begin
sl:=TStringList.Create;
sl.Append(OpenDialog1.FileName);
for i:=0 to sl.Count-1 do ListBox1.Items.Append(ExtractFileName(sl.String[i]));
sl.Free; ВСЕ)
end;

end;

← →
Vice____ (2007-11-18 03:41) [31]

ТЫ НЕ ПОНЯЛ....ОБЪЯСНЯЮ НА ПРИМЕРЕ

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

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

procedure TForm1.btn_open1Click(Sender: TObject);
var
SL: TSTRINGLIST;
I: Integer;
begin
flcount := -1;
SL := TSTRINGLIST.Create;
if OpenDialog1.Execute then
SL.LoadFromFile(OpenDialog1.FileName);
FLCOUNT := SL.COUNT
for i := 0 to FLCOUNT do
begin
FL[I].FPRGPATH := SL.ITEM.VALUE[I];
FL[I].FFILENAME := EXTRACTFILENAME(SL.ITEM.VALUE[I]);
end;
SL.Free;
FOR I := 0 TO FLCOUNT DO
LISTBOX.ITEMS.ADD(FL[I].FFILENAME);
end;

ВОТ И ВСЁ!!!!!

> .dn+ © (18.11.07 03:35) [27]
>
>
> > Германн
>
>
> а что не понятно??? А как будет не бредова??
>
> МНЕ НУЖНО С ФАЙЛА ОТКРЫТЬ СОХРАНЕННЫЕ ТУДА ПУТИ К РАЗНЫМ
> ФАЙЛАМ. И ПЕРЕПИСАТЬ В МАССИВ СТРОК....ВОТ И ВСЁ

Это не описание задачи. Это бред КП ( в тёмную ноябрьскую ночь.
:-)

И У МЕНЯ НЕ РАБОТАЕТ....ХОТЯ ВСЁ БЕЗ ПРОБЛЕМ КОМПИЛИТСЯ!!!

А ВОТ ЭТО КЛАССНЫЙ ВАРИАНТ, Я ТАКИМ НЕ ПОЛЬЗОВАЛСЯ " sl.Append(OpenDialog1.FileName)"

← →
Vice____ (2007-11-18 03:49) [35]

> .dn+ © (18.11.07 03:47) [34]
>
> И У МЕНЯ НЕ РАБОТАЕТ....ХОТЯ ВСЁ БЕЗ ПРОБЛЕМ КОМПИЛИТСЯ!
> !!

да в твоем коде ошибок как щас звезд на небе)

НУ Я НЕ СПЕЦ, Я ТОЛЬКО УЧУСЬ....УЧУСЬ НА ПРАКТИКЕ

СПАСИБО ЗА ПОМОЩЬ!!!! И САМ ДОДУМАЮСЬ!!!!!!!!!!

← →
Vice____ (2007-11-18 04:04) [38]

может так
var Form1: TForm1; slFileName:TStringList; implementation ..... ..... ..... procedure TForm1.Button1Click(Sender: TObject); var sl:TStringList; i:integer; begin if OpenDialog1.Execute then begin sl:=TStringList.Create; sl.LoadFromFile(OpenDialog1.FileName); slFileName.Clear; ListBox1.Clear; for i:=0 to sl.Count-1 do begin slFileName.Append(sl.Strings[i]); --- тут все твои пути к файлам делай что угодно ListBox1.Items.Append(ExtractFileName(sl.Strings[i])); end; sl.Free; end; end;

спасибо!!!!!!!!!!! :) :) :)

у меня все равно выбивает ошибку....сделал как ты написал!!!!!!!

Открытие файла Найти похожие ветки