Считывание из файла номеров и цифр

[Neeter]

Дык вам надо в edit выводить числа или в StringGrid? Ваш код пригоден для StringGrid'а. Но Stilet правильно сказал:

можно рассчитывать сумму непосредственно при наполнении грида информацией

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 i, j: integer;
 Chars: TStrings;
 Letter, Number: char;
 str: string;
 sum: integer;
begin
 Chars := TStringList.Create;
 try
  Chars.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Chars.txt');
  Edit2.Clear;
  sum := 0;  //обнуляем
  for i := 1 to Length(Edit1.Text) do
  begin
   Letter := Edit1.Text[i];

   for j := 0 to Chars.Count - 1 do
   begin
    str := Chars[j];
    if Pos(AnsiUpperCase(Letter), str) <> 0 then
    begin
     Number := Copy(str, 1, 1)[1];
     Break;
    end;
   end;
   Edit2.Text := Edit2.Text + Number;
   inc(sum, StrToInt(Number));   //Увеличиваем сумму на Number
  end;
  Label1.Caption := IntToStr(sum);  //Присваиваем метке
 finally
  Chars.Free;
 end;
end;

[artemavd]

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

Дык вам надо в edit выводить числа или в StringGrid?

Всё, останавливаюсь на таком варианте: в StringGrid вводятся буквы и расставляются цифры, а подсчитываемая сумма выводится в Edit. . Я уже поднадоел наверное, но не могли бы сделать окончательный результат, с использованием StringGrid-a и Edit-a? То есть добавить в тот код, который расположен на первой странице этой темы, в котором бы делалась бы работа с буквами и цифрами (что уже сделано там) и считалась сумма, а результат суммы чисел подсчитывался бы до тех пор пока на не получится однозначное число? Не серчайте на меня за на наглость

[Neeter]

Вот:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i, j: integer;
 Chars: TStrings;           //Сам файл будет тут
 Letter, Number: char;   //Буква в StringGrid'е и число в файле
 str: string;                 //Текущая строка в файле
 sum: integer;
begin
 Chars := TStringList.Create;   //Создаем список
 try
  Chars.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Chars.txt');   //Загружаем в него файл
  sum := 0;  //обнуляем
  Edit1.Clear;  //Очищаем edit, в котором будет сумма
  for i := 0 to StringGrid1.ColCount - 1 do       //Цикл до кол-ва колонок
  begin
   if StringGrid1.Cells[i, 0] = '' then Break;      //Если в текущей колонке не написана буква, то завершаем цикл

   Letter := StringGrid1.Cells[i, 0][1];           //Присваиваем букву из текущей колонки

   for j := 0 to Chars.Count - 1 do               //Цикл до конца файла
   begin
    str := Chars[j];               //Присваиваем текущую строку
    if Pos(AnsiUpperCase(Letter), str) <> 0 then    //Найдена ли буква (измененная в регистре на заглавную) в текущей строке
    begin
     Number := Copy(str, 1, 1)[1];      //Если найдена, то присваиваем переменной число в текущей строке
     inc(sum, StrToInt(Number));   //Увеличиваем сумму на Number
     Break;                                     //Заканчиваем цикл
    end;
   end;
   StringGrid1.Cells[i, 1] := Number;   //Присваиваем ячейке пониже буквы число из файла
  end;
  Edit1.Text := IntToStr(sum);  //Присваиваем edit'у сумму
 finally
  Chars.Free;     //Освобождаем память от списка
 end;
end;

[artemavd]

...
     Number := Copy(str, 1, 1)[1];      //Если найдена, то присваиваем переменной число в текущей строке
     inc(sum, Number);   //Увеличиваем сумму на Number
     Break;                                     //Заканчиваем цикл
...

Ругается на строчку inc(sum, Number); . Почему?

[Neeter]

дада
замените:

 inc(sum, StrToInt(Number));

[artemavd]

Большое спасибо . Щас все считает .