Witam.
Mam problem z tym kodem, tzn. kompiluje sie ale nie powstaje litera tylko jakis szlaczek i nie wiem dlaczego. Strzelam ze to w tej funkcji chr cos pomylilem.
procedure TForm1.Button1Click(Sender: TObject);
var
ascii : integer;
n : integer;
z : char;
begin
Memo2.Clear;
for n := 1 to length(Memo1.Text) do
begin
z := Memo1.Text[n];
ascii := ord(z);
Memo2.Text := Memo2.Text + IntToStr(ascii);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
liczba : integer;
n : integer;
tekst : char;
begin
Memo3.Clear;
for n := 1 to length(Memo2.Text) do
begin
liczba := StrToInt(Memo2.Text[n]);
tekst := chr(liczba);
Memo3.Text := Memo3.Text + tekst;
end;
end;
Z gory dziekuje za odpowiedz.