Bulder c++ Memo и ansistring

@krezi121212 · Регистрация: 15.11.2015

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

не выходит сделать одну программу.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
AnsiString text;
AnsiString text_1;
AnsiString key_def="qwertyu";
AnsiString key;
 
void __fastcall TVOD_by_krezi121212::Button7Click(TObject *Sender)
{
key=Edit1->Text;
}
//---------------------------------------------------------------------------
 
void __fastcall TVOD_by_krezi121212::Button3Click(TObject *Sender)
{
text = Memo1->Text;
for (int i=1;i<=text.Length()   ;i++){
for (int j=1;j< key_def.Length();j++){
   if(text[i]==key_def[j]){
    text_1.Delete(i,1);
    text_1[i]=key[j];
   }
   }
   }
}
//---

Программа компилируется но на text_1[i]=key[j];(сам определил) выдаёт ошибку помогите реализовать правильно.

@volvo · 08.05.2017, 16:25

Что программа делать-то должна? Задание где?

@krezi121212 · 08.05.2017, 16:31 **[ТС]**

заменять буквы из text на буквы из key (шифратор проще говоря) вот пример на pascal :

Pascal
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
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
var
text:string[255];
key_1:string;
key:string;
a2:integer; 
a1:integer;
temp:integer;
begin
a1:=1;
a2:=1;
key:='qwertyuiopasdfghjklzxcvbnméöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ .,()!?1234567890';
write('key: ');
Readln(key_1);
ClrScr;
Write('Âûáåðåòå ïóíêò çàøèôðîâàòü(1) ðàñøèôðîâàòü(2): ');
Readln(temp);
ClrScr;
writeln('Òåêñò (ìàêñèìóì 240 ñèìâîëîâ) èñïîëüçóþòñÿ ñèìâîëû èç êëþ÷à:');
Readln(text);
Writeln('Òåêñò ïîñëè øèôðàòîðà ðàñøèôðàòîðà: ');
if temp=1 then
begin
repeat
repeat
if text[a1]=key[a2] then
write(key_1[a2]);
a2:=a2+1;
until(a2=75);
a2:=1;
a1:=a1+1;
until(a1=254);
end;
if temp=2 then
begin
repeat
repeat
if text[a1]=key_1[a2] then
write(key[a2]);
a2:=a2+1;
until(a2=75);
a2:=1;
a1:=a1+1;
until(a1=254);
end;
Readln();
end.

вывод:
key: mnbvcxzlkjhgfdsapoiuytrewq ,.юбьтимсчя()эж!дло?рпа1в2ы3ф4ъ5х6з7щ8ш9 г0некуцй
1
Текст (максимум 240 символов)а:
привет
Текст посли шифратора расшифратора:
!дыэб3

@plapteshk · 10.05.2017, 11:57

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

Программа компилируется но на text_1[i]=key[j];(сам определил) выдаёт ошибку помогите реализовать правильно.

Потому что длина строки key=Edit1->Text; может быть меньше чем длина key_def.

Вставьте строчку после первого for:

C++
1
2
int len = key.Length() <  key_def.Length() ? key.Length() : key_def.Length();
for (int j=1;j< len;j++)

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	08.05.2017, 16:25
	Что программа делать-то должна? Задание где? 0

Bulder c++ Memo и ansistring

Решение