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

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

кто нибуть подскажет [D6]

rooman1 © (2002-12-15 22:57:00)
как в stringlist добавить путь и имя файла
пожалуйста помогите

Song (2002-12-16 20:08:00) [1]
Ну значит нету у тебя элемента Strings[0]

rooman1 (2002-12-16 18:34:00) [2]
так,все нормально
FindFiles(DriveList[i], "iint.exe",s);
CopyFile (s.strings[0], GetCurrentDir);
а вот так
procedure TForm1.Button1Click(Sender: TObject);
begin s:=TStringList.Create;
CopyFile (s.strings[0], GetCurrentDir);
end;
выдает ошибку такого плана
" List index out of bounds [0] "

Song (2002-12-16 14:06:00) [3]
А чего за ошибка-то?

KoluChi (2002-12-16 14:06:00) [4]
А зачем кавычки? "list.strings[0]"

rooman1 (2002-12-16 14:02:00) [5]
знаю точно в списке есть путь и имя файла,проверил.
как его копировать
поблема с этой строкой "list.strings[0]"
пробывал по разному.

rooman1 (2002-12-15 23:51:00) [6]
полный путь указвает эта фигня List.add(ParamStr(0));я надеюсь
а файл где находится не извесно
FindAll("int.exe",List)
есть ли там полный путь ,должен быть

Snap (2002-12-15 23:41:00) [7]
не понял что ты хочеш. если скопировать файл цеинтэкзе, то зачем эта фигня с поиском? И ещё: ты знаешь что именно находится в листе перед тем как ты пытаешься скопировать?
Я имею ввиду есть ли там полный путь?

rooman1 (2002-12-15 23:31:00) [8]
указываю путь явно, копирует а так нет
винда дает ошибку "файл не найден"
var
List : TStringList;
Begin
List := TStringList.Create;
List.add(ParamStr(0));
FindAll("C:\int.exe",List);\\находим файл
WindowsCopyFile ("list.strings[0]", GetCurrentDir);
End;

Rouse_ (2002-12-15 23:03:00) [9]
var s:TStringList;
begin
s:= TStringList.Create;
s.add(ParamStr(0));
end;

Желаю успехов

Наверх

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