Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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


 
KoluChi   (2002-12-16 14:06) [7]

А зачем кавычки? "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] "


 
Song   (2002-12-16 20:08) [9]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.031 c
14-86182
han_malign
2002-12-06 16:18
2002.12.26
Вот это флейм!!!


1-85960
Versus31
2002-12-11 15:18
2002.12.26
Помогите. Срочно!!!


14-86154
nadin
2002-12-06 09:55
2002.12.26
Paradox помогите вскрыть пароль


7-86196
gluka-fish
2002-10-23 18:25
2002.12.26
Запись данных в исполняемый файл..


3-85817
Romkin
2002-12-06 11:17
2002.12.26
attempted update of read-only column





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский