[Karsh]

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

вопрос 1. как в имеющемся коде сделать так чтобы использовался файл не из конкретной папки, а из папки с экзешником программы???

вот так можно узнать папку с exe:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
begin
  s:= ExtractFilePath(ParamStr(0));
  ShowMessage(s);
end;

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

вопрос 2. есть 3х значное число - как посчитать сумму его цифр?

можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, i: Integer;
begin
  x:= 248;
  y:= 0;
  for i:= 1 to 3 do
  begin
    y:= y + (x Mod 10);
    x:= x div 10;
  end;
  ShowMessage(IntToStr(y));
end;