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

← →
rooman1 (2002-12-15 22:57) [0]

как в stringlist добавить путь и имя файла
пожалуйста помогите

← →
Rouse_ © (2002-12-15 23:03) [1]

var s:TStringList;
begin
s:= TStringList.Create;
s.add(ParamStr(0));
end;

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

← →
rooman1 (2002-12-15 23:31) [2]

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

← →
Snap © (2002-12-15 23:41) [3]

не понял что ты хочеш. если скопировать файл цеинтэкзе, то зачем эта фигня с поиском? И ещё: ты знаешь что именно находится в листе перед тем как ты пытаешься скопировать?
Я имею ввиду есть ли там полный путь?

← →
rooman1 (2002-12-15 23:51) [4]

полный путь указвает эта фигня List.add(ParamStr(0));я надеюсь
а файл где находится не извесно
FindAll("int.exe",List)
есть ли там полный путь ,должен быть

← →
rooman1 (2002-12-16 14:02) [5]

знаю точно в списке есть путь и имя файла,проверил.
как его копировать
поблема с этой строкой "list.strings[0]"
пробывал по разному.

← →
Song © (2002-12-16 14:06) [6]

А чего за ошибка-то?

А зачем кавычки? "list.strings[0]"

← →
rooman1 (2002-12-16 18:34) [8]

так,все нормально
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] "

Ну значит нету у тебя элемента Strings[0]

кто нибуть подскажет Найти похожие ветки