Проблема с написанием программы в Делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Проблема с написанием программы в Делфи - 2010-04-16 13:33:52.923333
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
Ребят собственно такая проблема, родственник попросил написать ему программу для поиска слов (строк) в текстовых файлах (.txt .rtf и т.д.) я пока что написал программу просто для поиска файлов (так сказать сначала ее опробовать).
В ходе компиляции ошибок не выдавало, но программа почему-то не хочет добавлять имена файлов в поля ListBox
Вот сам исходник
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ListBox1: TListBox;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
OpenDialog1: TOpenDialog;
ListBox2: TListBox;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
dir: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var SR: TSearchRec;
FindRes: integer;
begin
listbox2.Clear;
FindRes := findfirst(edit1.Text+''+edit2.Text,faAnyFile,SR);
while FindRes = 0 do
FindRes := FindNext(SR);
listbox1.Items.Add(SR.Name);
FindClose(SR);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SelectDirectory('Выбор папки','C:\,D:\F:\',dir);
edit1.Text:= dir;
end;
end.
Буду благодарен
|
|
|
|
|
RE: Проблема с написанием программы в Делфи - 2010-04-16 16:02:28.133333
|
|
|
Barkass$
Сообщений: 1854
Оценки: 40
Присоединился: 2008-11-11 12:19:45.216666
|
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
s:=OpenDialog1.FileName;
ShellExecute(Handle, 'open', PChar(s), nil, nil, SW_SHOW);
Или я что-то не так понял? …
|
|
|
|
|
RE: Проблема с написанием программы в Делфи - 2010-04-16 20:00:30.086666
|
|
|
AleksNEW
Сообщений: 1019
Оценки: 0
Присоединился: 2010-01-17 08:35:42.933333
|
Нужно искать в директории) + если найдет, то добавляло в ListBox1 а у меня почему то не добавляет, сам не понимаю почему
|
|
|
|
|
|
