проблема с Циклом. не проходит латинский алфавит ((

[KWN, lnc]

от a до y работает ))

For I:=97 to 121 do
Begin
  gif := TGifImage.Create;
  gif.LoadFromFile(Path+'a'+chr(i)+'.gif');
  hs:=(47-gif.Width) div 2;
  vs:=(34-gif.Height) div 2;
  gif.Width:=47;
  gif.Height:=34;

от a до z не работает ((

For I:=97 to 122 do
Begin
  gif := TGifImage.Create;
  gif.LoadFromFile(Path+'a'+chr(i)+'.gif');
  hs:=(47-gif.Width) div 2;
  vs:=(34-gif.Height) div 2;
  gif.Width:=47;
  gif.Height:=34;

в чем проблема?

[Stilet]

Во-первых можно проще:

var c:char;
...
For c:='a' to 'z' do
Begin
  gif := TGifImage.Create;
  gif.LoadFromFile(Path+'a'+c+'.gif');
  hs:=(47-gif.Width) div 2;
  vs:=(34-gif.Height) div 2;
  gif.Width:=47;
  gif.Height:=34;

Во-вторых, ошибка скорее всего говорит что гифка слишком мала чтоб вместить ее в TGifImage

[KWN, lnc]

не помогло. он пишет нет файла a.gif
а тот код который я писал он находит весь алфавит.gif кроме az

[Sibedir]

Ну проблема-то скорее всего не в коде, а в az.gif.

[GunSmoker]

offtop

Вспоминается классика:

Как сделать, чтобы по нажатию на буттон в лабеле выводилась 1 случайная буква алфавита?

Ответ:

Спасибо. А как с русским алфавитом?

Ответ:

А как Делфи определяет, что если 32, то русский, а если 26, то английский?

[KWN, lnc]

Sibedir? отдельно подгружаю az.gif
работает отлично (( подгружается

[KWN, lnc]

помогите разобраться в вопросе (((

[Stilet]

отдельно подгружаю az.gif

Как? Тем же кодом? Покажи код отдельного подгружения

[Sibedir]

Делфя точно 7-ая?

Хотя...
Ну раз уже спросил..
Короче, какая?

[KWN, lnc]

в компоненте PngImageList просто добавляю и он добавляется нормально! и у меня Делфя 7, да