Работа с переменными

@Fatums · Регистрация: 03.06.2009

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

Доброго времени суток форумчани. Прошу у вас помощи. Может знает кто как переменную такого типа
A: String;
переобразовать в такую
B: array [0...255] of Char;
Очень нужна ваша помощь.

@o-user · 25.06.2009, 15:58

Можно сделать так:

Pascal
1
2
for i:=1 to length(a) do
   b[i]:=a[i];

@Fatums · 25.06.2009, 18:35 **[ТС]**

Пробовал компилятор вроде компилирует, ошибок нет но переменная b при проверке пустая.

@Messenger of G. · 25.06.2009, 21:25

Pascal
1
2
3
4
5
6
7
8
9
type TB = array[byte] of char;
var a:string;
var b:TB;
begin
readln(a);
b:=TB(a);
a[3]:=' ';
write(b[1],b[3],b[5]);
end.

Данный пример по введенной строке отображает 1,3 и 5 буквы. В строке 6 идет копирование. В строке 7-8 идет подтверждение того, что значение скопировалось и переменные каким-то образом не «связались», как это бывает с объектами и указателями. Код работает.

@Fatums · 27.06.2009, 13:30 **[ТС]**

Пробовал в 6 строке ошибка.

@VintProg · 27.06.2009, 13:33

string 255-byte
а
B: array [0...255] of Char; - 256-byte
размер отличаетса.

@Messenger of G. · 27.06.2009, 13:45

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

Пробовал в 6 строке ошибка.

Это ответ на сообщение №4?
Странно, в Turbo Pascal 7.0 работает корректно (по крайней мере при строках с длиной более 5 символов)
Ещё: string имеет 256 байт памяти, байт на размер (от 0 до 255) и 255 байт для последовательности из 255 возможных ASCII-символов.
При различии в размерах TP7 выдает ошибку 61 Invalid type cast.

@Fatums · 27.06.2009, 19:45 **[ТС]**

совершенно верно ошибка Invalid type cast. только в D7 133, и что делать? сровнять как то длину строк надо походу да?

@Messenger of G. · 27.06.2009, 22:54

Во-первых, посмотрите, что сказал o-User.
Во-вторых, такой код работает немного быстрее (в теории). Отлажено на Borland Delphi 7.0.

Delphi
1
2
3
4
5
6
7
8
9
type TArr = array[byte] of char; //b[0] — длина, b[i] — i символ.
type TStr = string[255]; //лучше так, а не просто string, хотя фактически одно и то же.
var a:TStr; b:TArr;
procedure Copy(const Str:TStr; var Arr:TArr); var t:TArr absolute Str; begin Arr:=t end;
begin
readln(a);
Copy(a,b);
write(b[2]); //печать второго символа.
end.

@Fatums · 29.06.2009, 03:22 **[ТС]**

---------------------------
Не думал что єто будет так сложно. Но и по последнему предложенному варианту после компиляции в строке readln(a); выдает ошибку
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 6'. Process stopped. Use Step or Run to continue.

Добавлено через 11 часов 7 минут 18 секунд
Так ни кто и не поможет. Пожалуйста ну кто нибуть помогите, очень прошу.

@Messenger of G. · 29.06.2009, 22:50

Вроде, в письме было сказано, что строку readln(a) следует заменить на другую, который соответствует способ ввода информации (а так как у тебя режим ОКОННЫЙ, это можно сделать или через a:=StrToInt(Edit1.text) или через чтение из файла).

@Arustarh Dark · 30.06.2009, 05:57

Т.к. раздел называется Delphi, то и реализация ИМХО на Delphi должна быть.
Вот как это делается:

Code
1
2
3
4
5
6
7
8
9
10
11
12
uses
  math;
const
  arrlen = 250;
var
  s:string;
  c:array [1..arrlen] of char;
begin
  s:='Some text';
  fillchar(c[1],arrlen,#0);
  Move(s[1],c[1],min(length(s),arrlen));
end;

@Fatums · 01.07.2009, 01:33 **[ТС]**

Извените конечно но все варианты вроди работают, отдельно, особенно последний, а в связи с моей функцией не хотят. Поэтому попробую перефразировать постановку задачи:
Есть переменная а:String; в которой записан путь и есть функция
Copyfile(PFileName,а,true);
но в функции переменная а другого типа.
Вот такая проблема.

@Arustarh Dark · 01.07.2009, 13:38

Если это стандартный виндовый CopyFile то:

Delphi
1
2
3
4
5
6
var
  somename:string;
begin
  somename:='C:\ntldr';
  CopyFile(PChar(somename),'D:\ntldr.copy',true);
end;

@Fatums · 01.07.2009, 16:51 **[ТС]**

Да я с тобой полностью согласен, так работает. Но дело в том что переменная string содержит путь куда копировать то есть второй параметр функции.Что мне кажется что это не реально, а может и ошибаюсь.

Добавлено через 2 часа 41 минуту 3 секунды
Ура! Нашел выход. Он очень прост как и все гениальное. Кому интересно вот код:

Delphi
1
2
3
4
5
6
7
 var
 somename, newname:string;
 begin
 somename:='C:\ntldr';
 newname:='D:\ntldr.copy';
 CopyFile(PChar(somename),PChar(newname),false);
 end;

Всем спасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Fatums 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 12

	Работа с переменными 25.06.2009, 15:48. Показов 2390. Ответов 14 Метки нет (Все метки) Доброго времени суток форумчани. Прошу у вас помощи. Может знает кто как переменную такого типа A: String; переобразовать в такую B: array [0...255] of Char; Очень нужна ваша помощь. 0

@Fatums 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 12
	25.06.2009, 18:35 [ТС]
	Пробовал компилятор вроде компилирует, ошибок нет но переменная b при проверке пустая. 0

@Fatums 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 12
	27.06.2009, 13:30 [ТС]
	Пробовал в 6 строке ошибка. 0

@VintProg 7 / 7 / 0 Регистрация: 24.06.2009 Сообщений: 44
	27.06.2009, 13:33
	string 255-byte а B: array [0...255] of Char; - 256-byte размер отличаетса. 0

@Fatums 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 12
	27.06.2009, 19:45 [ТС]
	совершенно верно ошибка Invalid type cast. только в D7 133, и что делать? сровнять как то длину строк надо походу да? 0

@Fatums 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 12
	29.06.2009, 03:22 [ТС]
	--------------------------- Не думал что єто будет так сложно. Но и по последнему предложенному варианту после компиляции в строке readln(a); выдает ошибку Debugger Exception Notification --------------------------- Project Project1.exe raised exception class EInOutError with message 'I/O error 6'. Process stopped. Use Step or Run to continue. Добавлено через 11 часов 7 минут 18 секунд Так ни кто и не поможет. Пожалуйста ну кто нибуть помогите, очень прошу. 0

@Messenger of G. Посланник моего господина 111 / 106 / 52 Регистрация: 02.05.2009 Сообщений: 181
	29.06.2009, 22:50
	Вроде, в письме было сказано, что строку readln(a) следует заменить на другую, который соответствует способ ввода информации (а так как у тебя режим ОКОННЫЙ, это можно сделать или через a:=StrToInt(Edit1.text) или через чтение из файла). 0

@Fatums 0 / 0 / 0 Регистрация: 03.06.2009 Сообщений: 12
	01.07.2009, 01:33 [ТС]
	Извените конечно но все варианты вроди работают, отдельно, особенно последний, а в связи с моей функцией не хотят. Поэтому попробую перефразировать постановку задачи: Есть переменная а:String; в которой записан путь и есть функция Copyfile(PFileName,а,true); но в функции переменная а другого типа. Вот такая проблема. 0