работа с файлом через папку.

← →
мимо (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;

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

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

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

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

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