[Grynyuk]

Как вообще работать с символами
Задание: Написать программу, которая вводит символьный массив из 19-ти или меньшего количества элементов и находит среди них элемент с наименьшим номером в ANSI-таблицы.

[M.A.D.M.A.N.]

Char - символ.

Код:

1 2 3 4 5

var   a: cahr; begin   a := 'q'; end;

З.Ы. Задание не понял.

[Grynyuk]

Сообщение от M.A.D.M.A.N.

Char - символ.

Код:

З.Ы. Задание не понял.

Я так понял надо из едита считать строку из 19- элементов и в этой строке найти елемент с минимальным кодом

[Alegun]

Сообщение от Grynyuk

...надо из едита считать строку из 19- элементов и в этой строке найти елемент с минимальным кодом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function PosMinChr(ds: string): byte; var  i, b, c: byte; begin  c:= 255;  for i := 1 to Length(ds) do   if c > byte(ds[i]) then    begin     c:= byte(ds[i]);     b:= i;    end;  PosMinChr:= b; end;

Строка не длиннее 255 элементов, результат - позиция первого мин элемента в строке.

[Grynyuk]

Спасибо большое

[Grynyuk]

byte(ds[i]) ? что оно делает почему не просто ds[i]?

[Alegun]

Сообщение от Grynyuk

byte(ds[i]) ? что оно делает почему не просто ds[i]?

ds[i] - типа char, т.е. символ, а здесь нужен его код ANSI, вернее порядковый номер в таблице символов, byte его и возвращает.

[Grynyuk]

Сообщение от Alegun

ds[i] - типа char, т.е. символ, а здесь нужен его код ANSI, вернее порядковый номер в таблице символов, byte его и возвращает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     btn2: TButton;     btn3: TButton;     edt1: TEdit;     edt2: TEdit;     btn1: TButton;     lbl1: TLabel;     lbl2: TLabel;     Label1: TLabel;     procedure btn1Click(Sender: TObject);     procedure btn2Click(Sender: TObject);     procedure btn3Click(Sender: TObject);     private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   s:string;   i:Integer; implementation   {$R *.dfm}   procedure TForm1.btn1Click(Sender: TObject); begin   edt1.Clear;   edt2.Clear; end;    procedure TForm1.btn3Click(Sender: TObject); begin  form1.Close; end; procedure TForm1.btn2Click(Sender: TObject); var   min, i, b, c: byte;            ds:string   ; begin     ds:=edt1.text;   begin  c:= 255;  for i := 1 to Length(ds) do   if c > byte(ds[i]) then    begin     c:= byte(ds[i]);      end;        edt2.text:= ds[i];  end; end; end.

Не работает что то

[M.A.D.M.A.N.]

Дядя, пользуйтесь тегом CODE, или вас ждет бан.

[Alegun]

Сообщение от Grynyuk

...Не работает что то

Для проверки добавьте на форму Label1 (наглядная демонстрация)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.btn2Click(Sender: TObject);   ... Label1.Caption:= ''; c:= 255; for i := 1 to Length(edt1.text) do  begin   Label1.Caption:= Label1.Caption + ' : ' + IntToStr(byte(edt1.text[i]));   if c > byte(edt1.text[i]) then    begin     c:= byte(edt1.text[i]);     b:= i;    end;  end;  edt2.text:= edt1.text[b] + ' : ' + IntToStr(byte(edt1.text[b])); ...

[Grynyuk]

Сообщение от Alegun

Для проверки добавьте на форму Label1 (наглядная демонстрация)

Код:

на Лейбл один появились коды вводимых символов едит2 по прежнему пуст

[Grynyuk]

Сообщение от Grynyuk

на Лейбл один появились коды вводимых символов едит2 по прежнему пуст

А все нашел в чем проблема спасибо