получить txt файлы

[komra2]

вот есть строка кода на c#:
string[] fileList = Directory.GetFiles(@"C:\SomeDir\", "*.txt");
как мне этот код получить на делфи 7 то есть
list.LoadFromFile('полный путь к папке в которой только txt файлы');
то есть чтобы загружал все txt из мною заданной директории....

[Stilet]

Ну только поиском. Пример поиска по маске тут: http://www.programmersforum.ru/showthread.php?t=6639

[Serge_Bliznykov]

я бы такой цикл предложил - тыц

переписал бы только так:

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  S: TStringsList;
begin
  S:=TStringList.Create;
  if FindFirst('папка\*.txt',faAnyFile,SR) = 0 then
  repeat
    S.LoadFromFile('папка\'+SR.Name);
    Memo1.Text:=Memo1.Text+#13+S.Text;
  until FindNext(SR) <> 0;
  FindClose(SR);
  FreeAndNil(S)
end;

если нужно в Delphi, то почему вопрос в разделе C# ?! Перенести?


__

[komra2]

Сообщение от Serge_Bliznykov

я бы такой цикл предложил - тыц

переписал бы только так:

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  S: TStringsList;
begin
  S:=TStringList.Create;
  if FindFirst('папка\*.txt',faAnyFile,SR) = 0 then
  repeat
    S.LoadFromFile('папка\'+SR.Name);
    Memo1.Text:=Memo1.Text+#13+S.Text;
  until FindNext(SR) <> 0;
  FindClose(SR);
  FreeAndNil(S)
end;

если нужно в Delphi, то почему вопрос в разделе C# ?! Перенести?


__

нет, не надо,
понимаешь в чем дело, у меня есть папка на раб столе, и в этой папке есть тхт и только тхт файлы, так чтобы не писать все время list.LoadFromFile('///');
написать в делфи из c#
@"C:\SomeDir\", "*.txt"); , мне не нужен не мемо1 не что-то другое, только list.LoadFromFile('///','*.txt');

[komra2]

в какой-та проге на делфи 7 нашел вот такой код, что он означает?

cDir := 'C:\\';
FileName := '*.*';
ChDir(cDir);
if FindFirst(FileName,faArchive,SearchRec)=0 then
repeat
if (SearchRec.Attr and faAnyFile)=SearchRec.Attr then
begin
if ExtractFileExt(SearchRec.Name)='.txt' then
begin
ListView1.Items.Add.Caption := SearchRec.Name;
end;
end;
until FindNext(SearchRec)<>0;
end;

[Пепел Феникса]

все же эта тема должна быть в разделе Делфи.
ибо речь о Делфи(не смотря на то что вы хотите за основу взять код из C#)

[Stilet]

Он означает

Найти все файлы на диске С: с расширением ТХТ без сканирования по вложенным каталогам. Найденное добавить в ListView1

[Serge_Bliznykov]

Сообщение от Stilet

Найденное добавить в ListView1

не, поправлю:

найденные имена файлов добавить в ListView1

впрочем,
исходный код TC на C#

string[] fileList = Directory.GetFiles(@"C:\SomeDir\", "*.txt");

именно получаем СПИСОК имён файлов.
т.е. это и есть эквивалентный код!


правда, непонятно, при чём здесь LoadFromFile, но это уже никому не ведомо, конечно...

_

[komra2]

Сообщение от Serge_Bliznykov

не, поправлю:



впрочем,
исходный код TC на C#

string[] fileList = Directory.GetFiles(@"C:\SomeDir\", "*.txt");

именно получаем СПИСОК имён файлов.
т.е. это и есть эквивалентный код!


правда, непонятно, при чём здесь LoadFromFile, но это уже никому не ведомо, конечно...

_

мне надо чтобы было бы написано list.LoadFromFile('путь');
поточнее надо вот так:

list.LoadFromFile('путь/.txt');
list.LoadFromFile('путь/.txt');
list.LoadFromFile('путь/.txt');
list.LoadFromFile('путь/.txt');
list.LoadFromFile('путь/.txt');
list.LoadFromFile('путь/.txt');

или же тогда на c# переделать вот этот код:
 procedure TForm1.Button1Click(Sender: TObject);
 var
 list:tstringlist;
 s,a:string;
 i:integer;
  begin
 list:=tstringlist.Create;
 list.LoadFromFile('1.txt');
 list.LoadFromFile('2.txt');
 list.LoadFromFile('3.txt');
 Edit1.Text:=UpperCase(Edit1.Text);
 for I := 0 to List.Count - 1 do
 begin
 s:=list[0]; 
 List.Delete(0); 
 a:=MD5DigestToStr(MD5String(s));
 if a=edit1.Text then 
 begin
 Edit2.Text:=s; 
 break;
 end;
 end;
 end;
 end.

[Serge_Bliznykov]

list:=tstringlist.Create;
 list.LoadFromFile('1.txt');
 list.LoadFromFile('2.txt');
 list.LoadFromFile('3.txt');

это написана глупость!

после этих манипуляций в list будет содержимое только ОДНОГО (последнего) загруженного файла. В данном случае - только 3.txt будет в list


ну и операция удаления из списка - тоже достаточно затратная.
вместо:

for I := 0 to List.Count - 1 do
begin
 s:=list[0]; 
 List.Delete(0);

лучше написать:

for I := 0 to List.Count - 1 do
begin
 s:=list[I];

без Delete будет намного эффективней!

_