Hallo
ich hoffe ihr könnt mir wie immer helfen.
Ich habe mehrer Edit Felder in diese Schreibe ich dann Zahlen.
Dann mache ich aus allen Edit Feldern einen String.
Diesen String 's' möchte ich jetzt in meinen Char Array rein kopieren.
Aber ich weiss leider nicht wie.
Ein Teil meines codes.
Code:
PCanCode = Array[0..22] of Char; // ist in einer anderen
Unit gespeichert
procedure TForm12.Button1Click(Sender: TObject);
var s: string;
CodeTest: PCanCode;
i: Integer;
begin
s := Edit1.text + Edit2.Text + Edit3.Text + Edit4.Text + Edit5.Text + Edit6.Text + Edit7.Text + Edit8.Text + Edit9.Text + Edit10.Text + Edit11.Text;
ShowMessage(s);
//CodeTest[0] := '$';
for i := 0 to 22 do begin
CodeTest[i] := s[i];
ShowMessage(CodeTest[i]);
end;
//geht nicht, fehler meldung wegen $ Zeichen, mit und ohne
// send_Canopen(CodeTest, Knotennummer);
end;
Danke
abi