FreePascal.ru

Kemet писал(а):нужно сделать массив из картинок

Благодарю

Добавлено спустя 2 минуты 41 секунду:

resident писал(а):В чем проблема-то?

Спасибо
Да первые опыты в лазэрусе, знаю самый минимум

Здравствуйте
Посоветуйте, как убрать лишний текст
У меня много картинок, которые меняются при определенных действиях
Можно ли сделать вместо этого:

Image1.Picture.Loadfromfile('Картинка1.png');
Image2.Picture.Loadfromfile('Картинка2.png');
Image3.Picture&#46 ...

Что я сделал не так?
Вы счетчик запустили до 2, цикл до TImage наверное и не дошел
Там все контролы перебираются, а их кроме TImage еще много. Вся суть, что вы должны перебрать все контролы на форме и найти среди них TImage.
Верните как у меня Pred(Form1.ControlCount)

Добавлено спустя 57 секунд ...

Тогда прикрепляю пример на тексте


Вот что я написал по вашему примеру, все скомпилировалось без ошибок, но при наведении курсора ничего не происходит. Что я сделал не так?

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to 2 do
if (Form1&#46 ...

procedure TForm1.LviMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

Но у меня нет кнопки Lvi
У меня есть кнопки Lv1, Lv2, Lv3...
И в том то и проблема, что я не могу заключить это в цикл, так как For может быть только внутри процедуры, а ...

Может заархивируете их? Что-то я трех не вижу.
Кого именно? Изображения кнопки?
Третье - имитация нажатия
https://pp.vk.me/c633927/v633927420/1ec6e/VpYmWqlwV_I.jpg
https://pp.vk.me/c633927/v633927420/1ec60/Qq61ZEa7Rfc.jpg
https://pp.vk.me/c633927 ...

resident писал(а):Ок, прикрепите изображения к посту. Тут вроде все просто, только не на чем проверить.
з.ы. Для каждой кнопки одно изображение? Или три (при наведении на них мышкой, отпускании мышки и щелчке)?

Три изображения

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

Да, но оно отличается опять же одной цифрой
Для кнопки Lv1 изображение ур1.png, для кнопки Lv2 изображение ур2 ...

procedure TForm1.LviMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

А у вас и названия картинок разные?
Т.е. в кнопку Lv1 должно закачатся изображение '1.png', в кнопку Lv2 изображение '2.png'?
Сколько их всего? Сотня, больше?

Да, я писал в начале темы ...

procedure TForm1.SomeFunction(name:string);
begin
Lvi.Picture.LoadFromFile( name );
end;

procedure TForm1.LviMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var i:byte;
begin
For i:=1 to 10 do begin
SomeFunction ...

procedure TForm1.SomeFunction(name:string);
begin
Lvi.Picture.LoadFromFile( name );
end;

procedure TForm1.LviMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
For i:=1 to 10 do begin
SomeFunction( 'урi.png ...

Доброго времени суток
Помогите советом
Как можно заключить в цикл for процедуры?
У меня куча одинаковых кнопок и все события к ним абсолютно одинаковые кроме номера кнопки
Попыталась тупо впихнуть процедуру в цикл, но компилятор ругается
"unit1.pas(215,11) Fatal: Syntax error, ";" expected but ...