Работа с файлами(delphi) - Помощь студентам

Egor2402 · 18.01.2015, 14:17

Написать программу, которая бы в строках вашей программы (Unit1.pas) поменяла порядок символов на обратный.

Serge_Bliznykov · 18.01.2015, 15:12

используйте TStringList:

Код:

var TS : TStringList;
.....
begin
...
   TS := TStringList.Create;

методом

Код:

TS.LoadFormFile('Путь к исходникам проекта\Unit1.pas');

грузите в память.
потом переворачивайте строки наизнанку:

Код:

for i:=0 to TS.Count-1 do begin
  s := ''; 
  for j:=Length(TS.Strings[i]) downto 1 do s := s + TS.Strings[i][j];
  TS.Strings[i] := s
end;

потом пишете содержимое TStringList'а в исходный файл:

Код:

TS.SaveToFile('Путь к исходникам проекта\Unit1.pas');

освободить память, занятую объектом:

Код:

TS.Free;

Вот и всё.

Egor2402 · 18.01.2015, 16:05

спасибо, все получилось

18.01.2015, 14:17	#1
Egor2402 Новичок Джуниор Регистрация: 18.01.2015 Сообщений: 3	Работа с файлами(delphi) Написать программу, которая бы в строках вашей программы (Unit1.pas) поменяла порядок символов на обратный.

18.01.2015, 15:12	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	используйте TStringList: Код: `var TS : TStringList; ..... begin ... TS := TStringList.Create;` методом Код: `TS.LoadFormFile('Путь к исходникам проекта\Unit1.pas');` грузите в память. потом переворачивайте строки наизнанку: Код: `for i:=0 to TS.Count-1 do begin s := ''; for j:=Length(TS.Strings[i]) downto 1 do s := s + TS.Strings[i][j]; TS.Strings[i] := s end;` потом пишете содержимое TStringList'а в исходный файл: Код: `TS.SaveToFile('Путь к исходникам проекта\Unit1.pas');` освободить память, занятую объектом: Код: `TS.Free;` Вот и всё.

18.01.2015, 16:05	#3
Egor2402 Новичок Джуниор Регистрация: 18.01.2015 Сообщений: 3	спасибо, все получилось