Как сохранить строки в файл?

← →
GoRdon (2007-06-05 18:11) [0]

Здравствуй уважаемые мастера Делфи. У меня возник вот такая смешная проблема:

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

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. Поэтому я не знаю как сохранить весь список найденых файлов в файл. В массив вообще не знаю как сохранить.

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

← →
Loginov Dmitry © (2007-06-05 18:14) [1]

TStrings.SaveToFile(FileName)

← →
Плохиш © (2007-06-05 18:14) [2]

> GoRdon (05.06.07 18:11)

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

← →
homm © (2007-06-05 19:25) [3]

> Как сохранить строки в файл?
> TStrings.SaveToFile(FileName)

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

← →
GoRdon (2007-06-05 19:35) [4]

Во блин заработало... УРА!!! Оказывается я реально затупил, в третий параметр функции(поиска) надо было просто имя переменной ввести, а я вводил имя переменной после неё ставил точку и в списке доступных методов хотел увидить метод типа "ADD" (TStrings.add), а там только метод CREATE;

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

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

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

Как сохранить строки в файл? Найти похожие ветки