Не пойму в чем дело

@igoriy · Регистрация: 24.11.2009

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

Или я так туплю или я не знаю.Вот простецкий код набросал понадобилось для програмульки

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
str,st: string;
i: integer;
ch: byte;
ch1: AnsiChar;
begin
 str:= Edit2.Text;
 for I := 0 to Length(str)-1 do
  begin
  ch:= ord(str[i]);
  ch1:= AnsiChar(chr(ch));
  st:= st+ch1;
  end;
  Edit1.Text:= st;
end;

И вот парадокс- дебургером гоняю в st есть данные - все прекрасно а в едите фиг вам- пустота

@Somebody · 10.10.2010, 19:08

Индексы строк в Delphi начинаются с единицы.

@anonimus · 10.10.2010, 20:12

Somebody, не в делфи а в string, у char с 0

@Somebody · 10.10.2010, 20:38

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

Somebody, не в делфи а в string, у char с 0

Строк в языке Delphi (или Object Pascal, если так нравится, но его же переименовали в Delphi). А при чём тут char, тут именно цикл от нуля, а s[0] - это
Char(Length(s) shr 24)
То есть строка будет начинаться с нулевого символа, что в WinAPI будет восприниматься как конец строки.

@igoriy · 13.10.2010, 17:31 **[ТС]**

Спасибо за информацию но хотелось бы конструктивное решение моей проблемы

@unick12345 · 13.10.2010, 17:38

решение подсказали. результат (при i:=0 to length(str)-1) получается edit1.text:= #0'значение edit2'. что в данном случае выполняет #0??? пошаговая обработка

@igoriy · 13.10.2010, 17:57 **[ТС]**

Спасибо просто ребята увлеклись спором и я отвлекся.Частенько то же самое в учебниках- много филосовии и ни капли практики.Сделал так и все отлично

Delphi

1	for I := 1 to Length(str) do

@Somebody 2835 / 1644 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	10.10.2010, 19:08	2
	Индексы строк в Delphi начинаются с единицы. 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	10.10.2010, 20:12	3
	Somebody, не в делфи а в string, у char с 0 1

@Somebody 2835 / 1644 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	10.10.2010, 20:38	4
	Сообщение от anonimus Somebody, не в делфи а в string, у char с 0 Строк в языке Delphi (или Object Pascal, если так нравится, но его же переименовали в Delphi). А при чём тут char, тут именно цикл от нуля, а s[0] - это Char(Length(s) shr 24) То есть строка будет начинаться с нулевого символа, что в WinAPI будет восприниматься как конец строки. 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	13.10.2010, 17:31 [ТС]	5
	Спасибо за информацию но хотелось бы конструктивное решение моей проблемы 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	13.10.2010, 17:38	6
	решение подсказали. результат (при i:=0 to length(str)-1) получается edit1.text:= #0'значение edit2'. что в данном случае выполняет #0??? пошаговая обработка 1

	13.10.2010, 17:57