Мастера 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;

.dn+ (2007-11-18 04:52:00) [1]
всё путём....спасибо всем кто помогал...теперь буду знать!!!

turbouser (2007-11-18 04:36:00) [2]

> .dn+ © (18.11.07 04:17) [41]
>
> > slFileName.Append(sl.Strings[i]);
>
> вот тут она глючит!!!
>

глючит у него...
slFileName создавать кто будет? А.С. Пушкин?

.dn+ (2007-11-18 04:17:00) [3]

> slFileName.Append(sl.Strings[i]);

вот тут она глючит!!!

.dn+ (2007-11-18 04:15:00) [4]
у меня все равно выбивает ошибку....сделал как ты написал!!!!!!!

.dn+ (2007-11-18 04:08:00) [5]
спасибо!!!!!!!!!!! :) :) :)

Vice____ (2007-11-18 04:04:00) [6]
может так
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;

.dn+ (2007-11-18 03:59:00) [7]
СПАСИБО ЗА ПОМОЩЬ!!!! И САМ ДОДУМАЮСЬ!!!!!!!!!!

.dn+ (2007-11-18 03:53:00) [8]
НУ Я НЕ СПЕЦ, Я ТОЛЬКО УЧУСЬ....УЧУСЬ НА ПРАКТИКЕ

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

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

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

.dn+ (2007-11-18 03:47:00) [10]
И У МЕНЯ НЕ РАБОТАЕТ....ХОТЯ ВСЁ БЕЗ ПРОБЛЕМ КОМПИЛИТСЯ!!!

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

Германн (2007-11-18 03:44:00) [11]

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

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

.dn+ (2007-11-18 03:44:00) [12]
ТЫ НЕ ПОНЯЛ....ОБЪЯСНЯЮ НА ПРИМЕРЕ

---------------------------------
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;

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

Vice____ (2007-11-18 03:41:00) [13]
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:00) [14]
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:38:00) [15]
объяснялова я сам потерялся или спать нужно идти)

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

> ну этот код...открывает файл с путями(ссылки) на разные
> файлы....потом
> обрабатывается...путь вписуется в 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;

.dn+ (2007-11-18 03:35:00) [17]

> Германн

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

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

Германн (2007-11-18 03:32:00) [18]

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

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

.dn+ (2007-11-18 03:27:00) [19]
ну тут же умные люди..... помогитепожалуйста!!!!

.dn+ (2007-11-18 03:20:00) [20]
ну это как-бы база для файлов...служит для проверки и так чтоб не парится с индексами

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

Наверх

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