edit text

[Nokia3310]

var
g,h,j,k: String;
keysss: String;
begin
   g := 'a';
   h := '20aa6a2a' ;
   j := '1dda5s979' ;
   k := '00c10d9aa7140e';
keysss:= g+h+j+k;
edit1.Text := keysss;

не работает такой код. Нужно что бы в edit1.text было a20aa6a2a1dda5s97900c10d9іa7140e

[eoln]

Вероятно, нет обработчика этого кода. Где он находится? В онклике кнопки или просто так?

[Nokia3310]

procedure TForm1.Edit1Change(Sender: TObject);
var
 g,h,j,k: String;
 keysss: String;
 begin
 g := 'a';
 h := '20aa6a2a' ;
 j := '1dda5s979' ;
 k := '00c10d9aa7140e';
 keysss:= g+h+j+k;
 edit1.Text := keysss;
end;

[Yurk@]

а какой смысл пихать это все в Edit1Change и в то же время переприсваивать значение

edit1.Text := keysss;

?
сделай это все по нажатию кнопки и будет норм

[Sibedir]

Для оформления кода есть кнопочка [#]

Упс. С этого места поподробнее. Что хотите получить? Что в итоге получаете? (хотя ответ на второй вопрос, кажется, очевиден)

[Nokia3310]

Мне нужно объединить 4 переменных и показать результат в edit1

[Sibedir]

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

Нужно именно так. Но так не работает..

Именно так - это как?

[Yurk@]

все работает .. только где логика ?
и да,

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

Что в итоге получаете?

актуально

[Sibedir]

... telepathy enabled
...
...
...

procedure TForm1.FormCreate(Sender: TObject);
var
  g,h,j,k: String;
  keysss: String;
begin
  g := 'a';
  h := '20aa6a2a' ;
  j := '1dda5s979' ;
  k := '00c10d9aa7140e';
  keysss:= g+h+j+k;
  Edit1.Text := keysss;
  Edit1.ReadOnly := True;
end;

[artemavd]

только где логика ?

Логика заключается в ее отсутствии))