Delphi, работа с текстовым файлом

[Dockkk]

Нужно написать программу на Delphi, которая в указанном текстовом файле меняет маленькие буквы на большие (русские буквы), поможете?)

[type_Oleg]

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

поможете?)

Конечно. Начинай , поможем.

[newerow1989]

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;

[Dockkk]

Спасибо, конечно, но я уже нашел более простой ответ на задачу

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.

[Serge_Bliznykov]

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

но я уже нашел более простой ответ на задачу

ужас. кошмар.
погуглите, что такое "индусский код"
и никогда, слышите - НИКОГДА, так не пишите!