Работа с файлами(символьный файл)

@аЯ-Яй · Регистрация: 23.11.2010

Студворк — интернет-сервис помощи студентам

Задача: дан символьный файл F.получить файл g, образованный из файла F заменой всех его прописных (больших букв) малыми.

Дали код, он наполовину делфи и на половину паскаль
Помогите пожалуйста преобразовать паскаль в делфи

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
k:string;
begin
assignfile(f,'c:\Documents and Settings\alena\Desktop\fail.txt');
reset(f);
read(f,k);
Edit1.Text:=k;
closefile(f);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
f,g:textfile;
k,s:string;
n,i:integer;
begin
assignfile(f,'c:\Documents and Settings\alena\Desktop\fail.txt');
assignfile(g,'c:\Documents and Settings\alena\Desktop\G.txt');
reset(f);
rewrite(g);
read(f,k);
n:=length(k);
for i:=1 to n do
if ((k[i]>='a')and(k[i]<='z'))or((k[i]>='а')and(k[i]<='я')) then
s:=s+chr(ord(k[i])-32)
else
s:=s+k[i];
write(g,s);
Edit2.Text:=s;
closefile(f);
closefile(g);
end;

end.

@virtuhay266 · 04.12.2010, 20:17

Во-первых, вот это

Delphi
1
2
3
4
5
6
n:=length(k);
for i:=1 to n do
if ((k[i]>='a')and(k[i]<='z'))or((k[i]>='а')and(k[i]<='я')) then
s:=s+chr(ord(k[i])-32)
else
s:=s+k[i];

можно заменить на

Delphi
1
s:=LowerCase(k);

Во-вторых, Delphi - это объектный паскаль, по этому преобразовать одно в другое ты не сможешь.

@irk · 04.12.2010, 22:01

var
Form1: TForm1;
f,g:textfile;
a:string;
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'f.txt');
assignfile(g,'g.txt');
reset(f);
append(g);

while not Eof(f) do
begin
readln(f,a);
a:=AnsiLowerCase(a);

writeln(g,a);
end;
closefile(f);
closefile(g);
end;

Добавлено через 48 секунд
по мне, так проще

@аЯ-Яй · 05.12.2010, 11:50 **[ТС]**

спасибо вам огромное)

вот получается что на форме будет находится только кнопка "выполнить" и всё?
потом уже сами находим файл и просматриваем там результат
я правильно поняла?

@virtuhay266 · 05.12.2010, 13:14

Можешь добавить на форму Memo и перед writeln(g,a) добавить memo1.Lines.Add(a)

@аЯ-Яй · 05.12.2010, 13:36 **[ТС]**

спасибо большущее, всё получилось) осталось только защитить работу

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@аЯ-Яй 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 20

	Работа с файлами(символьный файл) 04.12.2010, 19:34. Показов 1921. Ответов 5 Метки нет (Все метки) Задача: дан символьный файл F.получить файл g, образованный из файла F заменой всех его прописных (больших букв) малыми. Дали код, он наполовину делфи и на половину паскаль Помогите пожалуйста преобразовать паскаль в делфи procedure TForm1.Button1Click(Sender: TObject); var f:textfile; k:string; begin assignfile(f,'c:\Documents and Settings\alena\Desktop\fail.txt'); reset(f); read(f,k); Edit1.Text:=k; closefile(f); end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; procedure TForm1.Button2Click(Sender: TObject); var f,g:textfile; k,s:string; n,i:integer; begin assignfile(f,'c:\Documents and Settings\alena\Desktop\fail.txt'); assignfile(g,'c:\Documents and Settings\alena\Desktop\G.txt'); reset(f); rewrite(g); read(f,k); n:=length(k); for i:=1 to n do if ((k[i]>='a')and(k[i]<='z'))or((k[i]>='а')and(k[i]<='я')) then s:=s+chr(ord(k[i])-32) else s:=s+k[i]; write(g,s); Edit2.Text:=s; closefile(f); closefile(g); end; end. 0

@irk 4 / 4 / 3 Регистрация: 16.04.2010 Сообщений: 59
	04.12.2010, 22:01
	var Form1: TForm1; f,g:textfile; a:string; i:integer; procedure TForm1.Button1Click(Sender: TObject); begin assignfile(f,'f.txt'); assignfile(g,'g.txt'); reset(f); append(g); while not Eof(f) do begin readln(f,a); a:=AnsiLowerCase(a); writeln(g,a); end; closefile(f); closefile(g); end; Добавлено через 48 секунд по мне, так проще 1

@аЯ-Яй 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 20
	05.12.2010, 11:50 [ТС]
	спасибо вам огромное) вот получается что на форме будет находится только кнопка "выполнить" и всё? потом уже сами находим файл и просматриваем там результат я правильно поняла? 0

@virtuhay266 12 / 11 / 7 Регистрация: 28.05.2009 Сообщений: 56
	05.12.2010, 13:14
	Можешь добавить на форму Memo и перед writeln(g,a) добавить memo1.Lines.Add(a) 1

@аЯ-Яй 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 20
	05.12.2010, 13:36 [ТС]
	спасибо большущее, всё получилось) осталось только защитить работу 0