Скачать: CL | DM;

работа с файлом через папку.   Найти похожие ветки 

← →
мимо   (2009-06-20 15:21) [0]

подскажите. есть программка и она работает с текстовым файлом, т.е. непосредственно открывает сам файл
procedure TMemo.Button1Click(Sender: TObject);
begin
 with OpenDialog1 do
  if Execute then
  begin
   Memo1.Lines.LoadFromFile(FileName);
   Caption := "файл - " + ExtractFilename(FileName);
  end;
end;

а как сделать, чтобы открыть/выбрать саму папку, где лежит файл или несколько файлов.

---

← →
Palladin ©   (2009-06-20 15:40) [1]

SelectDirectory + F1

---

← →
мимо   (2009-06-20 15:55) [2]

var
 Dir: String;
begin
 SelectDirectory("Select a directory", "", Dir);
end;
а добавить бы выбор текстовых файлов? при выборе директории

---

← →
Palladin ©   (2009-06-20 15:55) [3]

а добавить бы куда интересно? ты или директорию выбирай или файл...

---

← →
Palladin ©   (2009-06-20 15:58) [4]

хотя телепатор, специальное устройство для понимания расы людей ЕстьЖеланиеПолучшеСказатьТоЧегоХочуТакЧтоБыВсеПонялиЧтоЯВВидуИмелНоНЕПолучается,  подсказывает вот это http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

---

← →
мимо   (2009-06-20 17:31) [5]

открываем файл в мемо:
procedure TMemo.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
 if Execute then
 begin
  Memo1.Lines.LoadFromFile(FileName);
  Caption := "файл - " + ExtractFilename(FileName);
 end;
end;

он у нас отображается, применяем к нему условие и автоматом сохраняем в файл:

procedure Tparser.Button2Click(Sender: TObject);
var
 i:Integer;
 n,m: Integer;
 TempStrings: TStrings;
begin
 TempStrings := TStringList.Create();
 try
   TempStrings.Assign(Memo1.Lines);
   for i:=TempStrings.Count-1 downto 0 do
     if (pos("адрес",TempStrings.Strings[i]))=0 then
       TempStrings.Delete(i);
   n:=0;
   while not (n>=(TempStrings.Count - 1)) do
   begin
     for m:=TempStrings.Count-1 downto n+1 do
       if (TempStrings.Strings[n] = TempStrings.Strings[m]) then
         TempStrings.Delete(m);
     inc(n)
   end;
   TempStrings.SaveToFile("adress.txt");
 finally
   TempStrings.Free();
 end;
end;

нужно, чтобы открыть ПАПКУ с этим файлом (можно чтоб он даже и не отображался в мемо), применить условие и сохранить файл.

---

← →
Andy BitOff ©   (2009-06-20 17:45) [6]

Это не смешно
http://forum.sources.ru/index.php?showtopic=275501

---

← →
Германн ©   (2009-06-21 01:13) [7]

> Andy BitOff ©   (20.06.09 17:45) [6]
>
> Это не смешно
> http://forum.sources.ru/index.php?showtopic=275501
>

Это грустно.
Но и ник подобран очень кстати. "Мимо" книжек. Даже самых простых для яслей.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c