{
W REKORDZIE YRS muszę miec koniecznie pola tupu znakowego (np. packed array[1..30] of char)
i nie potrafię wpisc do nich wartosci typu string.
Czy moglby mi ktos to pomóc zrobic ?
}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
YRS = record
model : packed array[1..30] of char;
KOMPRES : packed array[1..20] of char ;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
VAR
ir : YRS;
procedure TForm1.Button1Click(Sender: TObject);
var
modelll : string[30];
begin
//ir.KOMPRES:='TO TEZ NIE DZIALA';
modelll:= edit1.Text;
Move(modelll, ir.model, sizeof(modelll));
edit2.Text := ir.model;
edit3.Text := ir.KOMPRES;
end;
end.