[Delphi]zmiana liter na kod ascii z wykorzystaniem petli

0

Zbuduj aplikacje, która wyswietla wszystkie litery alfabetu oraz ich kody ASCII. Do otrzymania kodu danego znaku zastosuj rzutowanie typu Char na Byte oraz funkcje Ord(znak) . Do sterowania pętla zastosuj zmienna typu Char. czy ktos mi pomoze??

0

Kiedyś napisałem program kodujący, w jednym polu wpisujesz tekst, w drugim on wyświetla ASCII (jedna z funkcji). Czyli jak pisałeś w jednym "abcdefghijk" to on do drugiego wpisywał "abcdefghijk".
Fragment kodu zamieniającego literki masz tu:

procedure TForm1.Memo1Change(Sender: TObject);
var
i : integer;
cos : string[3];
begin
      Memo2.text:='';
      for i := 1 to Length(Memo1.Text) do
      begin
        STR(ord(Memo1.Text[i]),cos);
        Memo.text:=Memo2.text+'&#'+cos+';';
      end;
   end;

czyli że cos to jest string, do ktorego on wczytuje ASCII. No to możesz tak samo zrobić z charem. A gdzie on ma wyświetlać ten alfabet i kody?

0

mike_p: que?
Jak na mój gust, to chodzi o coś takiego:

var c:char;
begin
  for c:='A' to 'Z' do 
    Writeln(c, ': ', Byte(c));
end;
0

literki wyswietlic ma w memo lub na etykiecie

0

To zamień WriteLn na Memo.Add i zamiast c, ': ', Byte(c) zastosuj c+': '+IntToStr(Byte(c));

1 użytkowników online, w tym zalogowanych: 0, gości: 1