Посчитать сумму цифр в текстовом файле

@Nulled · Регистрация: 21.08.2010

Author24 — интернет-сервис помощи студентам

Собственно пытаюсь решить задачку в дельфи. Дан текстовый файл в котором даны строки с буквами и цифрами. И нужно посчитать сумму цифр.
Так вот подскажите как посчитать сумму именно цифр.
Когда данные из текстового файлы сначала заношу в строку, потом из нее в массив, что бы сложить цифры то вылетает ошибка . Подскажите может по другому как то можно)

@Z3oM · 04.04.2012, 16:00

Гхм! А как ты строковый массив сложишь? Я насколько знаю нет в делфях мульти массива например как в c# и c++ и то помойму в c++ нет я не помню! Что нужно сделать так это сначала получить список всех цифр ("Заведомо оно строки а не цифры") а только потом метадом StrToInt лупить их в цифры а потом уже складывать! а да мульти массивы ещё в PhP есть это я точно знаю =)

@Vabos · 04.04.2012, 16:07

Сумму чисел или именно цифр?
Если Цифр, то как-то так:

Delphi

function SUM(FileName:String):Integer;
var SL:TStringList;
    TempString:String;
    i,j:Integer;
begin
   Result:=0;
   SL:=TStringList.Create;
   SL.LoadFromFile(FileName);
   for i:=0 to SL.Count-1 do
   begin
      TempString:=SL[i];
      for j:=1 to Length(TempString) do
      begin
          if TempString[j] IN ['1'..'9'] then
          Result:=Result+StrToInt(TempString[j]);
      end;
   end;
end;

@Z3oM · 04.04.2012, 16:15

Сумму ты как получишь? метадом помощения его в массив только уже типа integer И после перевода правильно? Вот так и сделай, создай два массива в один строки с буквами и цифрами а другой число пустой для чисел. И если в беквенном и числовом (там где буковки и цифорки) попадается число то переводишь его в Integer типа так

Delphi

1	ArrayInt[I]:=StrToInt(ArrayStrInt[I]);

А потом складываешь или умножаешь или что тебе там нужно с ними делать =)

Добавлено через 1 минуту
Сори что с ошибками глазки уже не видят =) Пошел я спать =) Удачи в деле Спокойной Ночи =)

@Nulled 1 / 1 / 2 Регистрация: 21.08.2010 Сообщений: 56
		1
	Посчитать сумму цифр в текстовом файле 04.04.2012, 15:39. Показов 2431. Ответов 3 Метки нет (Все метки) Собственно пытаюсь решить задачку в дельфи. Дан текстовый файл в котором даны строки с буквами и цифрами. И нужно посчитать сумму цифр. Так вот подскажите как посчитать сумму именно цифр. Когда данные из текстового файлы сначала заношу в строку, потом из нее в массив, что бы сложить цифры то вылетает ошибка . Подскажите может по другому как то можно) 0

@Z3oM 250 / 71 / 18 Регистрация: 10.04.2010 Сообщений: 532 Записей в блоге: 3
	04.04.2012, 16:00	2
	Гхм! А как ты строковый массив сложишь? Я насколько знаю нет в делфях мульти массива например как в c# и c++ и то помойму в c++ нет я не помню! Что нужно сделать так это сначала получить список всех цифр ("Заведомо оно строки а не цифры") а только потом метадом StrToInt лупить их в цифры а потом уже складывать! а да мульти массивы ещё в PhP есть это я точно знаю =) 0

	04.04.2012, 16:15