Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Iceprera
0 / 0 / 0
Регистрация: 14.01.2012
Сообщений: 42
#1

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

07.03.2012, 08:48. Просмотров 708. Ответов 3
Метки нет (Все метки)

Дан текстовый файл, каждая строка которого изображает целое число, дополненное слева и справа несколькими пробелами. Вывести сумму этих чисел и их количество.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
 
var
  SL:TStringList;
  i,sum:integer;
  s:string;
 
begin
 
  SL:=TStringList.Create;
  sum:=0;
  SL.LoadFromFile('1.txt');
  for i:=0 to SL.Count-1 do
    begin
      s:=Trim(SL[i]);
      sum:=sum+StrToInt(s);
    end;
  ShowMessage('всего чисел: '+IntToStr(SL.Count)+#13#10+'сумма чисел: '+IntToStr(sum));
  SL.Free;
end;
отказывается работать. в чем ошибка? помогите
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2012, 08:48
Ответы с готовыми решениями:

Работа с текстовыми файлами
Доброго времени суток, форумчане ! Есть две простенькие процедуры записи в файл и чтение из...

Работа с текстовыми файлами
Нужна программа такого плана: открываем текстовый файл, в нем куча строк смотрим первую строку...

работа с текстовыми файлами
Дан текстовый файл, каждая строка которого изображает целое число, дополненное слева и справа...

Работа с текстовыми файлами
1. Дан текстовый файл литерных величин. Группы символов, разделенные пробелами (одним или...

Работа с текстовыми файлами
Текстовый файл содержит текст на естественном языке. Словом считается: - последовательность...

3
DenNik
Нарушитель
1791 / 1337 / 306
Регистрация: 26.07.2011
Сообщений: 7,642
07.03.2012, 09:51 #2
как отказывается? какую ошибку генерирует?

Добавлено через 2 минуты
у меня все работает. код правильный
вот пример файла
1
2
3
4
5
в оригинале файл с пробелами, обработка происходит корректно
1
Iceprera
0 / 0 / 0
Регистрация: 14.01.2012
Сообщений: 42
07.03.2012, 10:04  [ТС] #3
всё. я разобрался=) просто делфи глючила =) спасибо что отозвались на просьбу =)
0
Mawrat
12824 / 5732 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
07.03.2012, 10:39 #4
Для надёжности лучше использовать полное имя файла. Потому что текущая папка в Windows может меняться, например, когда в разных программах открывается диалог выбора/сохранения файла.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = '1.txt';
var
  SL:TStringList;
  i,sum:integer;
  s, FileName : string;
begin
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  if not FileExists(FileName) then begin
    ShowMessage('Файл данных не найден. Действие отменено.');
    Exit;
  end;
 
  SL:=TStringList.Create;
  sum:=0;
  SL.LoadFromFile(FileName);
  for i:=0 to SL.Count-1 do
    begin
      s:=Trim(SL[i]);
      sum:=sum+StrToInt(s);
    end;
  ShowMessage('всего чисел: '+IntToStr(SL.Count)+#13#10+'сумма чисел: '+IntToStr(sum));
  SL.Free;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2012, 10:39

Работа с текстовыми файлами
Скажите, пожалуйста, как таблицу с числами из файла затолкать в стриндрид? можно так вооюще...

Работа с текстовыми файлами
Программа работает( считывает данные из текстовика и щитает, потом записывает результат(фамилии с...

Работа с текстовыми файлами
Первая строка текстового файла in.txt содержит целое число N (число экзаменов,N<=40), след...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru