Ошибка в Delphi: unknown picture file extension(.)

[GunSmoker]

2ReportCube: бегом читать справку. И не путайте человека.

[ДениC]

Так оно тоже работает, но только на первую картинку. Остальные не идут и выдается снова эта ошибка

[GunSmoker]

Сообщение от ДениC

но только на первую картинку

С этого места подробнее. Откуда вдруг свалилась "следующая картинка" в строке

image1.Picture.LoadFromFile('1.jpg');

?

[ДениC]

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Image1: TImage;
    procedure Button1click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  k,o:integer;
  implementation

uses  Unit10;

{$R *.dfm}




procedure TForm8.Button1Click(Sender: TObject);
begin
if k<6 then image1.Picture.LoadFromFile(memo1.Lines.Strings[k]);
k:=k+1;
case k of
1: o:=o+0;
2: o:=o+0;
3: o:=o+0;
4: o:=o+1;
5: begin
o:=o+1;
form8.Hide;
form10.Show;
end;
end;

end;


procedure TForm8.FormCreate(Sender: TObject);
begin
  memo1.lines.loadfromfile('image.txt');
  image1.Picture.LoadFromFile(memo1.Lines.Strings[4]);
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
if k<6 then image1.Picture.LoadFromFile(memo1.Lines.Strings[k]);
k:=k+1;
case k of
1: o:=o+0;
2: o:=o+1;
3: o:=o+1;
4: o:=o+0;
5: begin
o:=o+0;
form8.hide;
form10.show;
end;
end;
end;



end.

Вот исходник

[ДениC]

Программа идет как тест. На форме расположен группбокс. В нем мемо, имайдж и 2 кнопки.

[GunSmoker]

Ну и где же в этом исходнике '1.jpg', который мы проверяем?

Давайте так:

procedure TForm8.FormCreate(Sender: TObject);
begin
  memo1.lines.loadfromfile('image.txt');
  ShowMessage('"' + memo1.Lines.Strings[0] + '"'#13#10#13#10 + memo1.lines.Text);
  image1.Picture.LoadFromFile(memo1.Lines.Strings[0]);
end;

Что покажет?

[GunSmoker]

P.S. Подсказка: в окне сообщения можно нажать Ctrl + C - это скопирует текст сообщения в буфер.

[ДениC]

Сначало он мне выдал весь список, который у меня в текстовике. Потом снова выдал эту же ошибку(

[ДениC]

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

P.S. Подсказка: в окне сообщения можно нажать Ctrl + C - это скопирует текст сообщения в буфер.

Спасибо конечно, но я не настолько "продвинутый" пользователь=)

[GunSmoker]

Я зачем вас про Ctrl + C спрашивал? Сообщение в студию.

У вас сейчас одно с другим не сходится. Вы где-то врёте.