edtMain - RichTextBox
btnRead - кнопка
frmMain - форма
| Код |
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TfrmMain = class(TForm)
edtMain: TRichEdit;
btnRead: TButton;
procedure btnReadClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.btnReadClick(Sender: TObject);
var
F:textfile;
sLetters,sSmGlasn:set of char;
ch:char;
begin
sLetters:=['A'..'z'];
sSmGlasn:=['a','e','i','o','u'];
edtMain.Clear;
AssignFile(F,'input.txt');
reset(F);
while not Eof(F) do
begin
read(F,ch);
while(not Eof(F)) and not (ch in sLetters) do
begin
edtMain.Text:=edtMain.Text+ch;
read(F,ch);
end;
if (ch in sSmGlasn) then ch:=UpCase(ch);
while(not Eof(F)) and (ch in sLetters) do
begin
edtMain.Text:=edtMain.Text+ch;
read(F,ch);
end;
edtMain.Text:=edtMain.Text+ch;{печать последнего символа блока}
end;
CloseFile(F);
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
edtMain.Clear;
end;
end.
|
|
