Как в таком случае правильно применить array?

@FromOutSide · Регистрация: 04.09.2014

Студворк — интернет-сервис помощи студентам

Весь код таков

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Image1.visible:=memo1.Lines[0]='а';
Image2.visible:=memo1.Lines[0]='б';
Image3.visible:=memo1.Lines[0]='в';
Image4.visible:=memo1.Lines[0]='г';
Image5.visible:=memo1.Lines[0]='д';
Image6.visible:=memo1.Lines[0]='е';
Image7.visible:=memo1.Lines[0]='ё';
Image8.visible:=memo1.Lines[0]='ж';
Image9.visible:=memo1.Lines[0]='з';
Image10.visible:=memo1.Lines[0]='и';
Image11.visible:=memo1.Lines[0]='й';
Image12.visible:=memo1.Lines[0]='к';
Image13.visible:=memo1.Lines[0]='л';
Image14.visible:=memo1.Lines[0]='м';
Image15.visible:=memo1.Lines[0]='н';
image16.visible:=memo1.Lines[0]='о';
image17.visible:=memo1.Lines[0]='п';
image18.visible:=memo1.Lines[0]='р';
image19.visible:=memo1.Lines[0]='с';
image20.visible:=memo1.Lines[0]='т';
image21.visible:=memo1.Lines[0]='у';
image22.visible:=memo1.Lines[0]='ф';
image23.visible:=memo1.Lines[0]='х';
image24.visible:=memo1.Lines[0]='ц';
image25.visible:=memo1.Lines[0]='ч';
image26.visible:=memo1.Lines[0]='ш';
image27.visible:=memo1.Lines[0]='щ';
image28.visible:=memo1.Lines[0]='ъ';
image29.visible:=memo1.Lines[0]='ы';
image30.visible:=memo1.Lines[0]='ь';
image31.visible:=memo1.Lines[0]='э';
image32.visible:=memo1.Lines[0]='ю';
image33.visible:=memo1.Lines[0]='я';
image34.visible:=memo1.Lines[0]=' ';

и так до

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Image6767.visible:=memo1.Lines[200]='а';
Image6768.visible:=memo1.Lines[200]='б';
Image6769.visible:=memo1.Lines[200]='в';
Image6770.visible:=memo1.Lines[200]='г';
Image6771.visible:=memo1.Lines[200]='д';
Image6772.visible:=memo1.Lines[200]='е';
Image6773.visible:=memo1.Lines[200]='ё';
Image6774.visible:=memo1.Lines[200]='ж';
Image6775.visible:=memo1.Lines[200]='з';
Image6776.visible:=memo1.Lines[200]='и';
Image6777.visible:=memo1.Lines[200]='й';
Image6778.visible:=memo1.Lines[200]='к';
Image6779.visible:=memo1.Lines[200]='л';
Image6770.visible:=memo1.Lines[200]='м';
Image6781.visible:=memo1.Lines[200]='н';
image6782.visible:=memo1.Lines[200]='о';
image6783.visible:=memo1.Lines[200]='п';
image6784.visible:=memo1.Lines[200]='р';
image6785.visible:=memo1.Lines[200]='с';
image6786.visible:=memo1.Lines[200]='т';
image6787.visible:=memo1.Lines[200]='у';
image6768.visible:=memo1.Lines[200]='ф';
image6769.visible:=memo1.Lines[200]='х';
image6770.visible:=memo1.Lines[200]='ц';
image6771.visible:=memo1.Lines[200]='ч';
image6772.visible:=memo1.Lines[200]='ш';
image6773.visible:=memo1.Lines[200]='щ';
image6774.visible:=memo1.Lines[200]='ъ';
image6775.visible:=memo1.Lines[200]='ы';
image6776.visible:=memo1.Lines[200]='ь';
image6777.visible:=memo1.Lines[200]='э';
image6778.visible:=memo1.Lines[200]='ю';
image6779.visible:=memo1.Lines[200]='я';
image6800.visible:=memo1.Lines[200]=' ';

в общем это 6800 картинок. знаю что можно применить для них array, но как именно не знаю, пытался разными способами, так же пытались помочь, но тщетно. И все же один выход нашелся, но это не array а просто приложение которое будет по буквам расскладывать эти строки и вычислять цифры, и это все так же долго и совсем не компактно.

Добавлено через 42 минуты
Подсказали этим способом

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
begin
j := 0;
for i := 0 to Pred(Form1.ControlCount) do
begin
if (Form1.Controls[0].ClassName <> 'TImage') then
Continue;
Inc(j);
if (Form1.Controls[i].Name = 'Image' + IntToStr(j)) then
(Form1.Controls[i] as TImage).Enabled := (Memo1.Lines[xxx] = Chr((Ord('a') + i) div 3));
end;
end;

и вот еще но это как применить?

Delphi
1
2
3
var m:array [1..n] of TImage;
for i:= 1 to n do
m[i]:= TImage.Create;

@FromOutSide · 29.01.2015, 14:28 **[ТС]**

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

Я не увидел в условии что это какой-то шифр. Ни его названия ни его алгоритма. Чтобы сделать, нужны хоть какие-то данные о том, что собственно реализуется. Ну поскольку у меня нет логики чтобы на пустом месте уяснить ваши задумки, что ж поделаешь. Но даже без логики все эти картинки и в таком количестве, это явный бред. Хотя куда мне глупому разбираться в столь высоких материях.

не надо из себя строить такого неженку, без обид, ну я думаю эту страницу немножко то можно заметить что, есть исходник с программой, алгоритмами и тд. и это совсем не бред если на одну букву приходится 34 картинки, а требуется букв 200, итог: на написание 200 букв применится 6800 картинок.

Добавлено через 2 минуты

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

Я ж это еще в посте #2 описал.
Если будет 6800 картинок и 200 строк в Мемо (с индексами от 0 до 199, а не 200), то код отработает.

да, но это если только все 200 строк будут заполнены!? а нужно чтоб криптограф срабатывал при любом кол-ве строк от 0 и до 200.

Добавлено через 11 минут

Не по теме:

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

ну я думаю эту страницу немножко то можно заметить что, есть исходник

XD очень похоже на "Желтый-моя любимая цифра в алфавите"))) а так имел ввиду что если немного почитать эту тему то можно заметить много алгоритмов, кодов и в посте #12 есть исходник и естественно его название.

@milz · 29.01.2015, 14:30

Рыться в чужих кодах, когда он мягко говоря не тот, у меня нет никакой охоты. Мне нужен словесный алгоритм и то что должно быть в результате. Картинки нужны только если буквы экзотичны и на каком то экстравагантном фоне, или на компе нет русского языка. Но не думаю чтобы в вашем случае нужна была хоть одна картинка. И не думаю чтобы манипуляции с текстом или ещё что шли очень медленно. Даже на XT это было бы мгновенно. А вообще если дело идёт о картинках, то нужна всего одна. Лента. Так собственно и делается. И никакого массива в этом случае не нужно. Хотя я даже не представляю что это вообще за картинки.

@FromOutSide · 29.01.2015, 14:37 **[ТС]**

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

словесный алгоритм

это как?

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

Картинки нужны только если буквы экзотичны и на каком то экстравагантном фоне, или на компе нет русского языка.

тебе само значение криптограф или шифратор о чем то говорит?

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

Но не думаю чтобы в вашем случае нужна была хоть одна картинка

увы, но если не использовать хотя бы 33 картинки, то даже одну букву не зашифруешь хоть как то,

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

И не думаю чтобы манипуляции с текстом или ещё что шли очень медленно. Даже на XT это было бы мгновенно. А вообще если дело идёт о картинках, то нужна всего одна. Лента. Так собственно и делается. И никакого массива в этом случае не нужно. Хотя я даже не представляю что это вообще за картинки.

прежде чем говорить об этом, сам скачай этой исходник а напиши 6800 строк не затрачивая много времени, да и еще с одной картинкой, и вобще как можно одной картинкой шифровать 33 буквы в различных вариантах? да, я уверен что можно и всего 34 использовать чтоб все прекрасно работало но я даже и близко понятия не имею что для этого нужно! А уж если ты в этом так хорошо разбираешься то скинь пожалуйста модифицированный исходник этой программы.

@FIL · 29.01.2015, 14:37

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

чтоб криптограф срабатывал при любом кол-ве строк

И об этом я тоже писал:

Delphi
1
for i := 0 to Memo1.Lines.Count - 1 do

@FromOutSide · 29.01.2015, 14:54 **[ТС]**

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

Хотя я даже не представляю что это вообще за картинки.

и еще раз... тебе слова шифратор и криптограф о чем то говорит?

Добавлено через 45 секунд

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

И об этом я тоже писал:

Delphi
1
for i := 0 to Memo1.Lines.Count - 1 do

а вот это уже сорри, что то забыл про это) спасибо!

Добавлено через 2 минуты

Не по теме:

Как только соберу программу хотя бы на стадии нормально рабочего exe'шника, сразу скину сюда этот криптограф.exe, я его буду объединять с другими прогами которые еще осенью еле еле слепил.

Добавлено через 9 минут
FIL, теперь работает без ошибок при любом кол-ве строк, но новая проблема... картинки не становятся видимыми. пока пытаюсь найти проблему.

Добавлено через 1 минуту

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

FIL, теперь работает без ошибок при любом кол-ве строк, но новая проблема... картинки не становятся видимыми. пока пытаюсь найти проблему.

а все нашел! все работает прекрасно! огромное спасибо!

@milz · 29.01.2015, 14:58

Нет не говорят. Я вообще не знаю что это такое, хотя программ по криптографии написал море.
Что касается модифицированного или чего там, повторяю, мне нужно уяснить задачу. А она у вас сводится к в какой массив вклеить кучу картинок, и всё. вы хот одну пару картинок выложите чтобы я имел представление о чём собственно идёт речь.
Что касается одной картинки. Если они одинакового размера тогда проще. если нет, сложнее. Но в любом случае все картинки склеиваются в длинную ленту. и попросту по номеру вырезаются из общей ленты и используются.

@FromOutSide · 29.01.2015, 15:09 **[ТС]**

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

Нет не говорят. Я вообще не знаю что это такое, хотя программ по криптографии написал море.
Что касается модифицированного или чего там, повторяю, мне нужно уяснить задачу. А она у вас сводится к в какой массив вклеить кучу картинок, и всё. вы хот одну пару картинок выложите чтобы я имел представление о чём собственно идёт речь.
Что касается одной картинки. Если они одинакового размера тогда проще. если нет, сложнее. Но в любом случае все картинки склеиваются в длинную ленту. и попросту по номеру вырезаются из общей ленты и используются.

Тогда вы должны знать что такое криптограф! ну или сам скажу: в данном случае - криптограф.exe - программа для искажения информации, перевод текста в картинки, и далее объединение их в одну картинку. А так держи все картинки этого криптографа.

@FromOutSide · 29.01.2015, 15:13 **[ТС]**

вот...

@milz · 29.01.2015, 15:17

Ну как хотите. Видит бог, что я хотел помочь. Кроме меня эту программу никто не сделает. Вы, как говоритя, в здравом уме и полной памяти отказываетесь от моих услуг. Что ж, в добрый путь. Но не думаю чтоб из ваш вышел приличный программист, раз даже добрых советов вы не хотите слушать.

@FromOutSide · 29.01.2015, 15:26 **[ТС]**

Не по теме:

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

Ну как хотите. Видит бог, что я хотел помочь. Кроме меня эту программу никто не сделает. Вы, как говоритя, в здравом уме и полной памяти отказываетесь от моих услуг. Что ж, в добрый путь. Но не думаю чтоб из ваш вышел приличный программист, раз даже добрых советов вы не хотите слушать.

спасибо за ваше бессмысленное предложение, а каких вы добрых советов дали????
и где я отказался от помощи??? я написал киньте мне эту программу раз только ВЫ на это способны ООО великий мастер криптографщик))
И да ваше общение походит на как уже писал про свой текст где я непонятно что начиркал "Желтый - моя любимая цифра в алфавите!"

Добавлено через 4 минуты
milz, извеняюсь, но по-моему вы просто тупо пытаетесь меня затролить

, и у вас это тупо не получается, ибо такое может нести только тот кто не общается с людьми вообще или чем то болен.

@FromOutSide · 29.01.2015, 15:35 **[ТС]**

Как и говорил скину прогу, но демо-версия.

@milz · 29.01.2015, 16:11

Затролить? Но вроде вы первые начали. Кто сказал что я туп и глуп и лезу с бретятиной к великому специалисту и криптологу??

Добавлено через 37 секунд
Ага. ещё и больной.

@FromOutSide · 30.01.2015, 14:18 **[ТС]**

Не по теме:

milz, покажите то самое место где я первый начал) и да вы пишите не по теме в эту тему)

Добавлено через 3 минуты

Не по теме:

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

Кто сказал что я туп и глуп и лезу с бретятиной к великому специалисту и криптологу??

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

Добавлено через 21 час 59 минут
FIL, извините что снова возвращаюсь к теме, но можно ли этот код изменить так, чтоб делался скриншот не всего экрана, а только формы, и даже если она перекрыта другими объектами и независимо от ее место положения?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
FileName: String;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := screen.Height;
bmp.Width := screen.Width;
DC := GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, screen.Width, screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.CompressionQuality:=100;
FileName := maskEdit1.Text;
if FileExists(FileName + '.jpg') then
begin
i := 1;
while FileExists(FileName + '(' + IntToStr(i) + ').jpg') do
inc(i);
FileName := FileName + '(' + IntToStr(i) + ').jpg';
end else
FileName := FileName + '.jpg';
jpgImg.SaveToFile(FileName);
begin
jpgImg.Free;
bmp.Free;
end; end;

@FIL · 30.01.2015, 18:01

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

скриншот не всего экрана, а только формы

Delphi
1
2
3
  Bitmap.Width := ClientWidth;
  Bitmap.Height := ClientHeight;
  Bitmap.Canvas.CopyRect(Canvas.ClipRect, Canvas, Canvas.ClipRect);

@cotseec · 30.01.2015, 18:16

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

даже если она перекрыта другими объектами и независимо от ее место положения

PrintWindow function
если окно свернуто, то как вариант Сделать скриншот свернутого приложения

@FromOutSide · 31.01.2015, 07:39 **[ТС]**

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

Delphi
1
2
3
Bitmap.Width := ClientWidth;
* Bitmap.Height := ClientHeight;
* Bitmap.Canvas.CopyRect(Canvas.ClipRect, Canvas, Canvas.ClipRect);

спасибо это работает.

Добавлено через 4 минуты
cotseec, что то не могу разобраться, с

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

PrintWindow function

это не на делфи, а переделать не знаю как.

Новые блоги и статьи Все статьи Все блоги /
Жара жесть. kumehtar 18.08.2026 Пролетают летом дни Тридцать пять жары в тени. Каждый август год от года Дарит жаркую погоду.	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@milz Заблокирован
	29.01.2015, 14:30
	Рыться в чужих кодах, когда он мягко говоря не тот, у меня нет никакой охоты. Мне нужен словесный алгоритм и то что должно быть в результате. Картинки нужны только если буквы экзотичны и на каком то экстравагантном фоне, или на компе нет русского языка. Но не думаю чтобы в вашем случае нужна была хоть одна картинка. И не думаю чтобы манипуляции с текстом или ещё что шли очень медленно. Даже на XT это было бы мгновенно. А вообще если дело идёт о картинках, то нужна всего одна. Лента. Так собственно и делается. И никакого массива в этом случае не нужно. Хотя я даже не представляю что это вообще за картинки. 0

@milz Заблокирован
	29.01.2015, 14:58
	Нет не говорят. Я вообще не знаю что это такое, хотя программ по криптографии написал море. Что касается модифицированного или чего там, повторяю, мне нужно уяснить задачу. А она у вас сводится к в какой массив вклеить кучу картинок, и всё. вы хот одну пару картинок выложите чтобы я имел представление о чём собственно идёт речь. Что касается одной картинки. Если они одинакового размера тогда проще. если нет, сложнее. Но в любом случае все картинки склеиваются в длинную ленту. и попросту по номеру вырезаются из общей ленты и используются. 0

@milz Заблокирован
	29.01.2015, 15:17
	Ну как хотите. Видит бог, что я хотел помочь. Кроме меня эту программу никто не сделает. Вы, как говоритя, в здравом уме и полной памяти отказываетесь от моих услуг. Что ж, в добрый путь. Но не думаю чтоб из ваш вышел приличный программист, раз даже добрых советов вы не хотите слушать. 0

@milz Заблокирован
	29.01.2015, 16:11
	Затролить? Но вроде вы первые начали. Кто сказал что я туп и глуп и лезу с бретятиной к великому специалисту и криптологу?? Добавлено через 37 секунд Ага. ещё и больной. 0