Как задать цикл открытия файлов в memo?

@Smodey · Регистрация: 10.10.2012

Author24 — интернет-сервис помощи студентам

В общем, что нужно:
Нужно, чтобы программа открывала все файлы по-порядку из определённой папки в memo1, проводила над ней некоторые операции и значения выкидывала в StringGrid.
Так вот, как "сказать" ей, чтобы она открывала файлы по-порядку, т.е. как задать ей цикл?

Вроде что-то написал, но оно не работает. Компилируется но не работает.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
a,b,i,j,d,z: Longint;
st1,st2,st3,st4: String;
L : TStringList;
begin
 
Memo2.Clear;
 
 
if FindFirst('C:\000\*.*', faAnyFile, sr) = 0 then
  begin
  repeat
  Memo2.Lines.Add(sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
 end;
 
i:=1;
 
 
for d:=1 to Memo2.Lines.Count-1 do
  begin
   Memo1.Lines.LoadFromFile('c:\000\'+memo2.Lines[d]);
 
for b:=0 to Memo1.Lines.Count-1 do
begin
st1:=Memo1.Lines[b];
if Pos ('Product Code',st1)<>0 then
begin
a:=b+1;
j:=1;
StringGrid1.Cells [i,j]:=memo1.Lines[a];
end;
end;

@volvo · 11.10.2012, 22:05

Что-то ты непонятное творишь. После прохода FindFirst/FindNext в Memo2 уже будут полные пути, не надо к ним опять добавлять 'c:\000\'. Файлы просто не будут найдены.

@Smodey · 11.10.2012, 22:13 **[ТС]**

Да, он как раз и пишет, что не может открыть файл.
Но если и убрать эту часть, т.е. получается:

Delphi

for d:=1 to Memo2.Lines.Count-1 do
  begin
   Memo1.Lines.LoadFromFile(memo2.Lines[d]);
 
for b:=0 to Memo1.Lines.Count-1 do
begin
st1:=Memo1.Lines[b];
if Pos ('Product Code',st1)<>0 then
begin
a:=b+1;
j:=1;
StringGrid1.Cells [i,j]:=memo1.Lines[a];
end;
end;

Опять же пишет то, что во вложенном скриншоте

11.10.2012, 22:17

А это что за ерунда?

Delphi

1
2
3

for d:=1 to Memo2.Lines.Count-1 do
  begin
   Memo1.Lines.LoadFromFile(memo2.Lines[d]);

@volvo · 11.10.2012, 22:18

Стоп. Я с чем-то FindFirst явно перепутал. Надо делать так, как ты делаешь, только отсекать ссылки на родительский каталог и на самого себя ( если в той папке есть еще и поддиректории - надо будет и их отсекать ):

Delphi

if FindFirst('C:\000\*.*', faAnyFile, sr) = 0 then
begin
   repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then // вот это условие добавь
         Memo2.Lines.Add(sr.Name);
   until FindNext(sr) <> 0;
   FindClose(sr);
end;

, а дальше - делай, как у тебя было, с добавлением 'c:\000\'

@Smodey · 11.10.2012, 22:33 **[ТС]**

Ну, это попытка поочерёдной загрузки файлов в memo1(они текстовые).
Как бы в memo2 организовался список с именами файлов. А в memo1 они загружаются

Добавлено через 13 минут
О,всё работает, спасибо)

P.S. там надо было ещё строки с нуля считать, т.к. строки в Memo с нулевой считаются. Но это не суть

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	11.10.2012, 22:05	2
	Что-то ты непонятное творишь. После прохода FindFirst/FindNext в Memo2 уже будут полные пути, не надо к ним опять добавлять 'c:\000\'. Файлы просто не будут найдены. 0

@Smodey 1 / 1 / 1 Регистрация: 10.10.2012 Сообщений: 32
	11.10.2012, 22:33 [ТС]	6
	Ну, это попытка поочерёдной загрузки файлов в memo1(они текстовые). Как бы в memo2 организовался список с именами файлов. А в memo1 они загружаются Добавлено через 13 минут О,всё работает, спасибо) P.S. там надо было ещё строки с нуля считать, т.к. строки в Memo с нулевой считаются. Но это не суть 0