WriteBinaryData

[grafgrial]

подскажите плиз, вопрос в коде

procedure TForm1.Button2Click(Sender: TObject);
var L, L2: integer;
v , fg: string;
begin
L:=Length(edit2.Text);
v:= inttostr(L);
label2.Caption:='Всего чисел в строке: '+ v;
fg:= edit2.text;
L2:=(Length(edit2.Text)-26); // как 26 заменить на это: Length(edit2.Text)/2
for L:=1 to L2 do
Insert(',',fg,(3*L));
label3.Caption:= fg;
end;

и еще как мне создать в реестре бинарный параметр с той строчкой что в label3. Вкурсе что через

procedure WriteBinaryData(const Name: String; var Buffer; BufSize: Integer);

, но не получается

[BOBAH13]

Остальное не понял, где вопрос.

и еще как мне создать в реестре бинарный параметр с той строчкой что в label3. Вкурсе что через
Код:

procedure WriteBinaryData(const Name: String; var Buffer; BufSize: Integer);
, но не получается

WriteBinaryData("MyLabel3Caption", Pointer(WideString(label3.Caption)) ^, Length(label3.Caption) * sizeof(WideChar));
Как то так

[grafgrial]

Остальное не понял, где вопрос.

L2:=(Length(edit2.Text)-26); // как 26 заменить на это: Length(edit2.Text)/2

[BOBAH13]

как 26 заменить на это: Length(edit2.Text)/2

По вашему понятно что это? Я понял один смысл, вы по какой то причине не можете удалить число 26 в коде и написать на его место это Length(edit2.Text)/2, заворожила бабка что ли?

[grafgrial]

Насчет бабки может быть!? Но не работает, если так ставлю (Короче там надо поставить выражение: половина кол-ва в строке edit2 +1 )

[grafgrial]

WriteBinaryData("MyLabel3Caption", Pointer(WideString(label3.Caption)) ^, Length(label3.Caption) * sizeof(WideChar));
Как то так

подставил! чуть с ошибочной
Безымянный.jpg

[BOBAH13]

Я привел Unicode вариант, включайте голову наконец а если не выходит то уберите WideString и * sizeof(WideChar)

[grafgrial]

Ок спасибо. (Голову не включить- сегодня...)
C

Length(edit2.Text)/2

сам разобрался нужно было представить через real