Problem s prevodom charu na string

[shuto]

tuto je moj kod:

Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, ToolWin, Menus, ImgList, StdCtrls;

type tovar=record
c,cet,pt,d,m,r,co:integer;
cud,cr,pop:Char;
nt:string[30];
end;
dodavatel=record
cdd,cid,ico,dic:integer;
m,nd,ud:string[20];
dick:string[3];
end;

TForm1 = class(TForm)
MainMenu1: TMainMenu;
Ponuka1: TMenuItem;
Dopl1: TMenuItem;
N1: TMenuItem;
Zme1: TMenuItem;
N2: TMenuItem;
Zma1: TMenuItem;
ovar1: TMenuItem;
N3: TMenuItem;
Dodvatea1: TMenuItem;
ovar2: TMenuItem;
N4: TMenuItem;
Dodvatea2: TMenuItem;
ovar3: TMenuItem;
N5: TMenuItem;
Dodvatea3: TMenuItem;
Vpisy1: TMenuItem;
Objedna1: TMenuItem;
Objednatovar1: TMenuItem;
N6: TMenuItem;
Zruiobjednvku1: TMenuItem;
Ukoniprogram1: TMenuItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Bevel1: TBevel;
Bevel2: TBevel;
ToolButton4: TToolButton;
ovar4: TMenuItem;
N7: TMenuItem;
Dodvate1: TMenuItem;
Vetkytovary1: TMenuItem;
N8: TMenuItem;
Odurithododvatea1: TMenuItem;
N9: TMenuItem;
Podaabecedy1: TMenuItem;
N10: TMenuItem;
Podadtumu1: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
Hada1: TMenuItem;
ovar5: TMenuItem;
N13: TMenuItem;
Dodvatea4: TMenuItem;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
Bevel3: TBevel;
Bevel4: TBevel;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
Podapopisu1: TMenuItem;
N14: TMenuItem;
Podaslaobjednvky1: TMenuItem;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
procedure ovar1Click(Sender: TObject);
procedure Ukoniprogram1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f:file of tovar;
g:file of dodavatel;
pomt: tovar;
pomd: dodavatel;



implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.ovar1Click(Sender: TObject);
begin
doplnt.showmodal;
end;

procedure TForm1.Ukoniprogram1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'tovar.dat');
reset(f);
while not eof(f) do read(f,pomt);

Form1.Edit1.Text:=inttostr(pomt.c);
Form1.Edit2.Text:=pomt.nt;
Form1.Edit3.text:=inttostr(pomt.cet);
Form1.Edit4.Text:=inttostr(pomt.pt);
Form1.Edit5.Text:=inttostr(pomt.d);
Form1.Edit6.Text:=inttostr(pomt.m);
Form1.Edit7.Text:=inttostr(pomt.r);
Form1.Edit8.Text:=(pomt.cr);
Form1.Edit9.Text:=pomt.pop;


end;

end.


Unit2

unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, ComCtrls, Spin, Unit1;

type
Tdoplnt = class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Label4: TLabel;
Label5: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label6: TLabel;
Edit7: TEdit;
Panel1: TPanel;
Button1: TButton;
Panel2: TPanel;
Edit8: TEdit;
Label7: TLabel;
Edit6: TEdit;
Label8: TLabel;
Edit1: TEdit;
Label9: TLabel;
Edit9: TEdit;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
doplnt: Tdoplnt;

implementation

{$R *.dfm}

procedure Tdoplnt.Button1Click(Sender: TObject);
begin
assignfile(f,'tovar.dat');
rewrite(f);

pomt.c:=strtoint(edit1.text);
pomt.nt:=edit2.text;
pomt.cet:=spinedit1.value;
pomt.pt:=spinedit2.value;
pomt.d:=strtoint(edit3.text);
pomt.m:=strtoint(edit4.text);
pomt.r:=strtoint(edit5.text);
pomt.pop:=edit8.text[150];

write(f,pomt);

end;

end.


Takze v unit 2 som si nacital nejake veci a pop a cr som dal do charu.....lenze by som ich chcel v unit1 vypisat a neviem ako previest char na string...pls pomozte mi

[krokousdan]

Použij funkci např:
Definuj
String := CharToStr(Char);

For Ch := 'Z' DownTo 'A' Do
Begin
Label1.Caption := CharToStr(Ch);
Label1.Update;
End;

Function TForm1.CharToStr(Ch : Char) : String;
Var S : String;
Begin
S[0] := Chr(1);
S[1] := Ch;
CharToStr := S ;
End;