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

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

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

Как сохранить строки в файл? [D5, D6, D7, XP]

GoRdon © (2007-06-05 18:11:00)
Здравствуй уважаемые мастера Делфи. У меня возник вот такая смешная проблема:

Имеется функция для поиска файлов в опред. дирректории, вот такая:

procedure TPlayListForm.FindFiles(StartFolder, Mask: string;
List: TStrings; ScanSubFolders: Boolean);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
StartFolder := IncludeTrailingBackslash(StartFolder);
FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec);
try
while FindResult = 0 do
with SearchRec do
begin
if (Attr and faDirectory) <> 0 then
begin
if ScanSubFolders and (Name <> '.') and (Name <> '..') then
FindFiles(StartFolder + Name, Mask, List, ScanSubFolders);
end
else
begin
if MatchesMask(Name, Mask) then
List.Add(StartFolder + Name);
end;
FindResult := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;

(Взята из Dephi World). Вообщем мне надо чтобы стоки из этой функции сохранить в массив или в файл, во всякие ListBox'ы мне не надо, хотя это работает, я пробывал сохранить в файл, объявлял переменную tempFile : TStringList, потом инициализировал её и значит пишу следующее:

findFiles(dirMus,'*.mp3',tempFile.)

Когда я ставля точку после переменной tempFile то из всех методов доступен только Create блин, а мне нужен add. Поэтому я не знаю как сохранить весь список найденых файлов в файл. В массив вообще не знаю как сохранить.

Поэтому я не могу найти способ как сохранить список найденных файлов в текстовый файл. (Наверно мой вопрос глупый до невозможности...)

Германн (2007-06-06 00:29:00) [1]

> а я вводил имя переменной после неё ставил точку и в списке
> доступных методов хотел увидить метод типа "ADD" (TStrings.
> add), а там только метод CREATE;

Сколько раз я говорил, что эти подсказки в редакторе - дьявольское изобретение! Надо хоть чтобы они были по умолчанию выключены.

GoRdon (2007-06-05 19:35:00) [2]
Во блин заработало... УРА!!! Оказывается я реально затупил, в третий параметр функции(поиска) надо было просто имя переменной ввести, а я вводил имя переменной после неё ставил точку и в списке доступных методов хотел увидить метод типа "ADD" (TStrings.add), а там только метод CREATE;

Всем спасибо.

homm (2007-06-05 19:25:00) [3]
> Как сохранить строки в файл?
> TStrings.SaveToFile(FileName)

В вопросе уже содержиться 80% ответа :)

Loginov Dmitry (2007-06-05 18:14:00) [4]
TStrings.SaveToFile(FileName)

Плохиш (2007-06-05 18:14:00) [5]

> GoRdon (05.06.07 18:11)

Пора книжку почитать...

Наверх

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