Считывание из поля Memo

[Qwerik]

Здравствуйте! Нужна помощь в написании программы. Язык программирования Delphi7.
задача состоит в том, что бы вычислить ASCII-код каждой буквы слова, введенного в поле Edit1, записать в десятичном виде в memo1, и в двоичном виде в memo2. Или просто сразу в двоичной системе счисления в memo1.
Вот так высчитываю ASCII-код каждой буквы и записываю в memo1:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
st:string;
s:string;
a:string;
b:string;
begin
 
S:=edit1.text;
for i:=1 to length(s) do
 
Form1.memo1.Lines.add(inttostr(ord(s[i])));
 
 
end;

Вот функция для перевода из десятичной СС в двоичную:

function Bin(x: Integer): string;
const t:array[0..1] of char = ('0','1');
var res:string;
d:0..1;
begin
res:='';
while (x<>0) do
begin
d:=x mod 2 ;
res:=t[d]+res;
x:=x div 2 ;
end;
Bin:=res;
 
end;

Не могу сделать так, что бы каждое число из мемо1 столбиком считывало и переводило в другую СС.
Помогите, пожалуйста!

[Serge_Bliznykov]

ну, функция Bin явно будет выдавать столько знаков, сколько значащих единиц в числе, но, если Вас она устраивает, тогда напишите так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, k : integer;
  s:string;
begin
 memo1.Clear; {очистка мемо1 - уберите, если очищать не нужно }
 memo2.Clear; {очистка мемо2 - уберите, если очищать не нужно }

 s:=edit1.text;
 for i:=1 to length(s) do begin
   k := ord(s[i]);
   memo1.Lines.append( inttostr(k) );
   memo2.Lines.append( Bin(k) );
 end;
end;

[evg_m]

либо так

что бы каждое число из мемо1 столбиком считывало и переводило в другую СС

Зачем читать из Мemo1? Надо сразу брать символ (уже есть)
и преобразовывать его сначала для Memo1(это есть) и потом (в этом же цикле) для Memo2.

r:=<получить число из символа>
s:=Bin(r);// получить строку с двоичным представлением
<добавить строку s в Меmo2>

Все что находится в <> уже есть в приведенном тобой коде!

но если хочется именно

каждое число из мемо1 столбиком считывало

то информация к размышлению
1. Мемо имеет набор строк (Lines: TStrings)
2. Набор строк имеет
2.1. количество строк в с списке count
2.2. индексированный список строк strings[5]: string
3. строка(string) это не число(integer), а запись числа символами(char)!
3.1. поэтому ее надо перевести в число strtoint
4.а уж число можно можно передать в функцию Bin и получить в результате строку двоичного представления.
5. и строку добавить в нужный Memo2.

P.S. код написать было б гораздо проще и быстрей, но ...
P.P.S.что вам и сделали.

[Qwerik]

Спасибо за ответ!
Только в случае вот такой записи:

k := ord(s[i]);
   memo1.Lines.append( inttostr(k) );

в memo1 заносится только ASCII-код последнего символа и дольше переводит в двоичную сс только его.

[Serge_Bliznykov]

во-первых, это нужно делать в цикле (зачем Вы вырвали кусок из моего кода, да ещё и неправильно вырвали!!!
begin end зачем выкинули?!!!

   for i:=1 to length(s) do begin 
      k := ord(s[i]);
      memo1.Lines.append( inttostr(k) );
      memo2.Lines.append( Bin(k) );
  end

во-вторых, попытайтесь прочитать то, что Вам написал evg_m в пост #3

[Qwerik]

Serge_Bliznykov, прошу прощения. Я просто часть показала, что так не работает. А вообще само собой все в цикле, полностью. А то, что написал evg_m я полностью прочитала. Но уж простите. Как только не пыталась, у меня не получается. Извините еще раз.

Не могу понять, почему при записи:

memo1.Lines.append( inttostr(ord(s[i])) );

записывает в мемо1 ASCII-код каждого символа, а при записи:

k := ord(s[i]);
memo1.Lines.append( inttostr(k) );

записывает в мемо1 ASCII-код только последнего символа из Edit1

Помогите, пожалуйста.

[Stilet]

Помогите, пожалуйста.

Читаем внимательно пост №5

[Serge_Bliznykov]

Stilet, +1

а при записи:

k := ord(s[i]);
memo1.Lines.append( inttostr(k) );

записывает в мемо1 ASCII-код только последнего символа из Edit1

этот код может вести себя так, как Вы описываете только в том случае, если он вынесен за цикл.

Ещё раз приведите сюда (скопируйте из редактора кода) ЦЕЛИКОМ код, который "висит" у Вас на обработке нажатия кнопки Button1
(целиком процедуру priocedure TForm1.Button1Click)

[Qwerik]

Спасибо, разобралась. Извините, что побеспокоила!