VPF::Текстовые файлы.Строки - Форум программистов

Гость_Ilya

Дата 10.12.2005, 17:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

В окне Form Написать программу, которая считывает английский текст из файла и выводит его на экран, заменив каждую первую букву слов, начинающихся с гласной буквы, на прописную.

darkart

Дата 10.12.2005, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

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.

Guest

Дата 10.12.2005, 20:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А в какой последовательности будут кнопочки? smile

Poseidon

Дата 10.12.2005, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 5
Всего: 133

Какие кнопочки? Там только одна кнопка - btnRead

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

darkart

Дата 10.12.2005, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Пример

Присоединённый файл ( Кол-во скачиваний: 4 )

Text.zip 7,49 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »