if(OpenDialog1->Execute()){
Memo1->LoadFromFile(OpenDialog1->FileName);
}
Открыть txt - файл
Есть директория inf, в которой находиться очень много файлов с разными именами и среди них файл с нужным именем например "123.txt"! Как открыть файл с заданным именем и текст, который он содержит, вывести в мемо? Помогите... плз
Цитата:
Originally posted by DissDoc
Есть директория inf, в которой находиться очень много файлов с разными именами и среди них файл с нужным именем например "123.txt"! Как открыть файл с заданным именем и текст, который он содержит, вывести в мемо? Помогите... плз
Есть директория inf, в которой находиться очень много файлов с разными именами и среди них файл с нужным именем например "123.txt"! Как открыть файл с заданным именем и текст, который он содержит, вывести в мемо? Помогите... плз
SetCurrentDir("[Полный путь к inf]\\inf");
Memo1->Lines->LoadFromFile("123.txt");
Цитата:
Originally posted by DissDoc
Есть директория inf, в которой находиться очень много файлов с разными именами и среди них файл с нужным именем например "123.txt"! Как открыть файл с заданным именем и текст, который он содержит, вывести в мемо? Помогите... плз
Есть директория inf, в которой находиться очень много файлов с разными именами и среди них файл с нужным именем например "123.txt"! Как открыть файл с заданным именем и текст, который он содержит, вывести в мемо? Помогите... плз
Код:
Код:
TSearchRec sr;
if(FindFirst("123.txt",faAnyFiles,sr)==0)
Memo1->LoadFromFile(sr.Name);
if(FindFirst("123.txt",faAnyFiles,sr)==0)
Memo1->LoadFromFile(sr.Name);
Спасибо, ребята! Работает! Но мне пришла в голову еще одна идея! А как тогда программно удалять файлы из дирректории с заданным именем!
Цитата:
Originally posted by DissDoc
Спасибо, ребята! Работает! Но мне пришла в голову еще одна идея! А как тогда программно удалять файлы из дирректории с заданным именем!
Спасибо, ребята! Работает! Но мне пришла в голову еще одна идея! А как тогда программно удалять файлы из дирректории с заданным именем!
Код:
TSearchRec sr;
if(FindFirst("123.txt",faAnyFiles,sr)==0)
DeleteFile(sr.Name);
FindClose(sr);
if(FindFirst("123.txt",faAnyFiles,sr)==0)
DeleteFile(sr.Name);
FindClose(sr);
Можно еще проще:
или даже
DeleteFile не возбуждает исключение, а возвращает булевское значение.
Код:
if(FileExists("123.txt"))
DeleteFile(sr.Name);
DeleteFile(sr.Name);
или даже
Код:
DeleteFile(sr.Name);
DeleteFile не возбуждает исключение, а возвращает булевское значение.