[denISRU]

сразу приношу свои извинения за неграмотность и некорректность вопроса - но помощь нужна и желательно побыстрее)
...
p.s. с делфи раньше не работал (да и вообще программирование вещь мало знакомая)

уже справился - поглядите последнее сообщение плиз )

[denISRU]

сунулся разбираться сам, наваял

Код:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm3 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  aFile : String;
implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
 TForm3.Image1.Picture.LoadFromFile('d:\temp\ks660.bmp');
end;

end.

при запуске ошибка в строке - TForm3.Image1.Picture.LoadFromFile('d:\temp\ks660. bmp');
гляньте кто разбирается - вроде как все на месте - может я путь к файлу не правильно задал?

[san-46]

А чего не пишешь какая ошибка?
Скорее всего, надо так:
Image1.Picture.LoadFromFile('d:\temp\ks660. bmp');
"TForm3" - это описание класса и к нему не может быть обращения в коде как к экземпляру этого класса.
Тогда уж: Form3.Image1....;, но и этого не требуется.

[denISRU]

в том то и дело что не пишет какая ошибка - выделяет строку целиком, а в меседже сообщает - процедура остановлена изза ошибки в строке № такойто....щас попробую по твоему - первый вариант взял из учебника по делфи
p.s. работает)) - большое спасибо )

[denISRU]

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

Код:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm3 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
 Image1.Picture.LoadFromFile('d:\temp\ks660.bmp');
end;

end.

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

[denISRU]

на второй вопрос выродил вот такое - проверьте пожалусто на безграмотность, но все работает

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,d,e:real ;
 begin
 a:=StrToFloat(form1.Edit1.Text);// из текста делаем число
 b:= Trunc (a/100); //получаем первую цифру
 c:= Trunc ((a-b*100)/10); // вторую...
 d:= (a-b*100)-c*10; // третью:)
 e:=b+c+d; //вычислили сумму
 Edit2.Text := FloatTostr(b) ; //следующие 3 промежуточные результаты
 edit3.text := FloatTostr(c) ; // для самопроверки
 edit4.Text := FloatTostr(d) ;
 edit5.Text := FloatTostr(e) ; // выводим результат
end;

end.

[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;