[Grynyuk]

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

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

Char - символ.

Код:

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

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

[Grynyuk]

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

Char - символ.

Код:

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

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

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

[Alegun]

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

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

Код:

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 его и возвращает.

Код:

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 (наглядная демонстрация)

Код:

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 (наглядная демонстрация)

Код:

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]));
...

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

[Grynyuk]

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

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

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