[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.

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