GEK, да формочку еще легче.
Вот например напишем функцию, название которой да я понять не могу(случайно клавиши так нажались )))
| Код |
procedure GAS(const S, FileName : string; Strings : TStrings);
var
F : text;
SStr : string;
begin
if ((FileName = '') or (not Assigned(Strings))) then
exit;
Assign(F, FileName);
Reset(F);
while not Eof(F) do
begin
readln(F, SStr);
if pos(S, SStr) <> 0 then
Strings.Add(SStr);
end;
end;
|
Работу с файлами оставил стандартную, может в этом и состоит задание, хотя легче было бы использовать TStringList.
На форме следующие компоненты:
TMemo, TButton, 2xTEdit
По нажатию кнопки пишем следующее:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
begin
GAS(Edit1.Text, Edit2.Text, Memo1.Lines);
end;
|
Весь код выглядит так:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure GAS(const S, FileName : string; Strings : TStrings);
var
F : text;
SStr : string;
begin
if ((FileName = '') or (not Assigned(Strings))) then
exit;
Assign(F, FileName);
Reset(F);
while not Eof(F) do
begin
readln(F, SStr);
if pos(S, SStr) <> 0 then
Strings.Add(SStr);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GAS(Edit1.Text, Edit2.Text, Memo1.Lines);
end;
end.
|
В архиве находится сам проект, только лучше сам все воспроизведи, полезнее будет
И еще:
Возьми почитай вот эту вот книгу:
http://www.delphilab.ru/content/view/17/46/ |
)
!
