Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2017, 19:13   #1
Dockkk
Новичок
Джуниор
 
Регистрация: 19.04.2017
Сообщений: 2
По умолчанию Delphi, работа с текстовым файлом

Нужно написать программу на Delphi, которая в указанном текстовом файле меняет маленькие буквы на большие (русские буквы), поможете?)
Dockkk вне форума Ответить с цитированием
Старый 19.04.2017, 19:21   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от Dockkk Посмотреть сообщение
поможете?)
Конечно. Начинай , поможем.
type_Oleg вне форума Ответить с цитированием
Старый 23.04.2017, 11:17   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    sl:tStringList;
    c:char;
    s:string;
begin
   sl:=tStringList.Create;
   sl.LoadFromFile('E:\1.txt');
   For i:=0 to sl.Count-1 do
   begin
      s:='';
      For j:=1 to Length(sl[i]) do
      begin
         c:=sl[i][j];
         Case c of
         'à'..'ÿ': Dec(c,32);
         '¸': Dec(c,16);
         end;
         s:=s+c;
      end;
      sl[i]:=s;
   end;
   Memo1.Text:=sl.Text;
   sl.Free;
end;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 25.04.2017, 13:28   #4
Dockkk
Новичок
Джуниор
 
Регистрация: 19.04.2017
Сообщений: 2
По умолчанию

Спасибо, конечно, но я уже нашел более простой ответ на задачу
Код:
procedure TForm2.Button2Click(Sender: TObject);
var
F: textfile;
tmp: TStrings;
i, j: integer;
l: integer;
tmp_str, s: string;
begin

tmp:= TStringList.Create;
l:= 0;
AssignFile(F, 'E:\file.txt');
Reset(F);
while not eof(F) do
begin
Readln(F, tmp_str);
tmp.Add(tmp_str);
inc(l);
end;
CloseFile(F);
for i:= 0 to l - 1 do
begin
s:= '';
tmp_str:= tmp[i];
for j:= 0 to length(tmp_str) - 1 do
begin
if (tmp_str[j] = 'Й') then
tmp_str[j]:= 'й';
if tmp_str[j] = 'Ц' then
tmp_str[j]:= 'ц';
if (tmp_str[j] = 'У') then
tmp_str[j]:= 'у';
if tmp_str[j] = 'К' then
tmp_str[j]:= 'к';
if (tmp_str[j] = 'Е') then
tmp_str[j]:= 'е';
if tmp_str[j] = 'Н' then
tmp_str[j]:= 'н';
if (tmp_str[j] = 'Г') then
tmp_str[j]:= 'г';
if tmp_str[j] = 'Ш' then
tmp_str[j]:= 'ш';
if (tmp_str[j] = 'Щ') then
tmp_str[j]:= 'щ';
if tmp_str[j] = 'З' then
tmp_str[j]:= 'з';
if (tmp_str[j] = 'Х') then
tmp_str[j]:= 'х';
if tmp_str[j] = 'Ъ' then
tmp_str[j]:= 'ъ';
if (tmp_str[j] = 'Ф') then
tmp_str[j]:= 'ф';
if tmp_str[j] = 'Ы' then
tmp_str[j]:= 'ы';
if (tmp_str[j] = 'В') then
tmp_str[j]:= 'в';
if tmp_str[j] = 'А' then
tmp_str[j]:= 'а';
if (tmp_str[j] = 'П') then
tmp_str[j]:= 'п';
if tmp_str[j] = 'Р' then
tmp_str[j]:= 'р';
if (tmp_str[j] = 'О') then
tmp_str[j]:= 'о';
if tmp_str[j] = 'Л' then
tmp_str[j]:= 'л';
if (tmp_str[j] = 'Д') then
tmp_str[j]:= 'д';
if tmp_str[j] = 'Ж' then
tmp_str[j]:= 'ж';
if (tmp_str[j] = 'Э') then
tmp_str[j]:= 'э';
if tmp_str[j] = 'Я' then
tmp_str[j]:= 'я';
if (tmp_str[j] = 'Ч') then
tmp_str[j]:= 'ч';
if tmp_str[j] = 'С' then
tmp_str[j]:= 'с';
if (tmp_str[j] = 'М') then
tmp_str[j]:= 'м';
if tmp_str[j] = 'И' then
tmp_str[j]:= 'и';
if (tmp_str[j] = 'Т') then
tmp_str[j]:= 'т';
if (tmp_str[j] = 'Ь') then
tmp_str[j]:= 'ь';
if (tmp_str[j] = 'Б') then
tmp_str[j]:= 'б';
if (tmp_str[j] = 'Ю') then
tmp_str[j]:= 'ю';
s:= s + tmp_str[j];
end;
tmp[i]:= s;
end;
AssignFile(F, 'E:\file.txt');
Rewrite(F);
for i:= 0 to l - 1 do
begin
writeln(F, tmp[i]);
end;
CloseFile(F);
end;
end.
Dockkk вне форума Ответить с цитированием
Старый 25.04.2017, 14:00   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Dockkk Посмотреть сообщение
но я уже нашел более простой ответ на задачу
ужас. кошмар.
погуглите, что такое "индусский код"
и никогда, слышите - НИКОГДА, так не пишите!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с текстовым файлом [Delphi] Dakzy Помощь студентам 0 15.11.2015 20:47
Работа с текстовым файлом в Delphi Potemkin_42 Помощь студентам 10 11.01.2011 12:39
Работа с текстовым файлом (delphi). Помогите доделать программу. Snord Помощь студентам 1 14.12.2007 14:10