Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.02.2018, 16:09
Taras2020 Taras2020 вне форума
Прохожий
 
Регистрация: 15.01.2018
Сообщения: 36
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию От начала / от конца строки / Удаление Delphi XE4

Ребята помогите решить вот такую задачу: В текстовом файле расположено много строк, все строки разной длины.
1. В edit1 указываю число: Сколько Удалить символов - с начала строки.
2. В edit2 указываю число: Сколько Удалить символов - с конца строки.
3. Нажимаю кнопку и программа Обрезает все строки, в файле (1.txt), с начала и с конца. И сохраняет результат в файл 2.txt.

Только чтение построчно, что бы не грузить память и не было ошибки нехватки памяти.

Сделал вот так но файлы по 500 мегабайт не обрабатывает. То есть таким способом я забиваю память:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
    s: string;
    k,n,i: integer;
begin
for i:=0 to t.Count-1 do
 begin
  s:=t[i];
  if k>=length(s) then s:=''
  else delete(s,length(s)-k+1,k);
  if n>=length(s) then s:=''
  else delete(s,1,n);
  t[i]:=s;
 end;
t.SaveToFile('2.txt');
t.Free;
ShowMessage('Файл 1.txt преобразован и записан в файл 2.txt')
end;
Как переделать через: через AsssignFile, Reset/Rewrite, CloseFile.

Последний раз редактировалось Taras2020, 28.02.2018 в 20:05.
  #2  
Старый 28.02.2018, 20:06
Taras2020 Taras2020 вне форума
Прохожий
 
Регистрация: 15.01.2018
Сообщения: 36
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Все проблему решил, всем спасибо за внимание.
  #3  
Старый 01.03.2018, 02:32
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, сам спросил, сам ответил.
Кстати, что-то тут больно много вопросов на эту тему появилось. Что за мания большие файлы ковырять стала?

ЗЫ. Кстати, в других подобных темах уже давали примеры. Тем, кто с такой же проблемой советую сначала воспользоваться поиском.
Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Taras2020 (01.03.2018)
Закрытая тема


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:38.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter