Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

Германн (2009-06-21 01:13:00) [1]

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

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

Andy BitOff (2009-06-20 17:45:00) [2]
Это не смешно
http://forum.sources.ru/index.php?showtopic=275501

мимо (2009-06-20 17:31:00) [3]
открываем файл в мемо:
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;

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

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

мимо (2009-06-20 15:55:00) [5]
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
end;
а добавить бы выбор текстовых файлов? при выборе директории

Palladin (2009-06-20 15:55:00) [6]
а добавить бы куда интересно? ты или директорию выбирай или файл...

Palladin (2009-06-20 15:40:00) [7]
SelectDirectory + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »