Переделать программу, решённую на Pascal, в Delphi

[Vrednaya]

Данная программа заменяет необходимые слова на другие, введённые с клавиатуры. Помогите, пожалуйста, реализовать данную программу в Delphi.

uses crt;
var
nm,dog,ul,s,age,he,his:string;
p:char;
f1,f2:text;
{//Процедура замены слов}
Procedure rep(a,b:string; var c:string);
var
p:integer;
Begin
while (pos(a,c)<>0) do
begin
p:=pos(a,c); {Определяем номер позиции заменяемого слова}
delete(c,p,length(a)); {Удаляем исходное слово}
insert(b,c,p); {Вставляем замену}
end;
end;
Begin
clrscr;
{//Ввод данных для редактирования}
write('Введите имя ребенка: ');
readln(nm);
write('Введите пол ребенка: ');
readln(p);
write('Возраст: ');
readln(age);
write('Улица: ');
readln(ul);
write('Кличка: ');
readln(dog);
{//Замена местоимений в зависимости от пола ребенка}
if (p in ['М','м']) then
begin
he:=' он ';
his:=' его ';
end
else
begin
he:=' она ';
his:=' ее ';
end;
{//Обработка}
assign(f1,'shablon.txt');{Открываем файл с исходным текстом}
reset(f1);
assign(f2,'new.txt');
rewrite(f2); {Создаём новый файл для записи в него отредактированного текста}
while not eof(f1) do
begin
readln(f1,s);
rep('Джонни',nm,s);
rep('шесть',age,s);
rep('Корт-стрит',ul,s);
rep('Ровер',dog,s);
rep(' он ', he,s);
rep(' его ', his,s);
writeln(f2,s);
end;
Close(f1);
Close(f2);
writeln('Обработанный текст находиться в файле new.txt');
readkey;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

если Вас устроит КОНСОЛЬНАЯ программа в Delphi,
тогда достаточно выкинуть из программы uses crt;
дописать
{$APPTYPE CONSOLE} (IDE Delphi добавит эту строчку автоматически, если выбрать New - Console Application)

ну и заменить readkey на ReadLn;

вот и всё.

[Vrednaya]

Serge_Bliznykov, консольная программа не подходит

[Serge_Bliznykov]

Serge_Bliznykov, консольная программа не подходит

сочувствую..

ну тогда создайте оконную форму. киньте на форму лейблы (TLabel) и поля ввода (TEdit) для каждого:
'Введите имя ребенка: ' - этот текст поместите в 1-й Label
'Введите пол ребенка: ' - этот текст поместите в 2-й Label (а вообще выбор пола лучше сделать через RadioButton - но тогда обработку надо чуть-чуть изменить...)
и т.д.
'Возраст: '
'Улица: '
'Кличка: '

потом на кнопку код обработки (все Readln(xx) заменить на xx := EditXX.Text;
f1,f2:text;
заменить на f1,f2:TextFile;
выкинуть CRT, ClrScr и Readkey и всё, программа на Delphi готова!


p.s. думаю, что многие с удовольствием сделают эту простую работу за Вас за небольшое вознаграждение (или даже просто за личное общение/фотку с автографом/спасибо/шоколадку и т.д. и т.п.

[Vrednaya]

Serge_Bliznykov, спасибо большое)

[domovou]

Что должно хранится в файле shablon.txt?

[stalker1995s]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nm,dog,ul,s,age,he,his:string;
p:char;
f1,f2:text;
{//Процедура замены слов}
Procedure rep(a,b:string; var c:string);
var
p:integer;
Begin
while (pos(a,c)<>0) do
begin
p:=pos(a,c); {Определяем номер позиции заменяемого слова}
delete(c,p,length(a)); {Удаляем исходное слово}
insert(b,c,p); {Вставляем замену}
end;
end;
Begin
{//Ввод данных для редактирования}
write('Введите имя ребенка: ');
readln(nm);
write('Введите пол ребенка: ');
readln(p);
write('Возраст: ');
readln(age);
write('Улица: ');
readln(ul);
write('Кличка: ');
readln(dog);
{//Замена местоимений в зависимости от пола ребенка}
if (p in ['М','м']) then
begin
he:=' он ';
his:=' его ';
end
else
begin
he:=' она ';
his:=' ее ';
end;
{//Обработка}
assign(f1,'shablon.txt');{Открываем файл с исходным текстом}
reset(f1);
assign(f2,'new.txt');
rewrite(f2); {Создаём новый файл для записи в него отредактированного текста}
while not eof(f1) do
begin
readln(f1,s);
rep('Джонни',nm,s);
rep('шесть',age,s);
rep('Корт-стрит',ul,s);
rep('Ровер',dog,s);
rep(' он ', he,s);
rep(' его ', his,s);
writeln(f2,s);
end;
Close(f1);
Close(f2);
writeln('Обработанный текст находиться в файле new.txt');
End.

Совсем не много.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[domovou]

stalker1995s, прочитай пост 5.

[Serge_Bliznykov]

точнее пост #3

Сообщение от Vrednaya

консольная программа не подходит

[Vrednaya]

domovou, в файле shablon.txt хранится вот такой текст:

Сегодня у Джонни большой день. Джонни исполняется шесть лет, и по этому случаю он устраивает грандиозную вечеринку. Отпраздновать день рождения Джонни приглашены все его друзья. То-то веселья будет в доме на Корт-стрит! Лучшие друзья Джонни со всей Корт-стрит соберутся вместе. Не обойдется и без его верной собаки Ровера. Ровер - отличный пес и просто обожает Джонни. Джонни тоже любит Ровера.