С помощью компонента Memo заполнить строковый массив. Вывести в компоненты Edit самую длинную и самую короткую строку из массива

Категория: Delphi/Pascal
2011-08-22 23:43:43
code: #delphi
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     Memo1: TMemo;
  12.     Button1: TButton;
  13.     Edit1: TEdit;
  14.     Edit2: TEdit;
  15.     procedure Button1Click(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   Form2: TForm2;
  24.  
  25. implementation
  26.  
  27. {$R *.dfm}
  28.  
  29. procedure TForm2.Button1Click(Sender: TObject);
  30. var ar_string:array of string;
  31.     smin,smax:string;
  32.     count:integer;
  33. begin
  34. setlength(ar_string,memo1.Lines.Count);
  35. for count := 0 to memo1.Lines.Count-1 do
  36.   ar_string[count]:=memo1.Lines[count];  
  37. if length(ar_string)>0 then
  38.   begin
  39.     smin:=ar_string[0];
  40.     smax:=ar_string[0];
  41.     for count := 1 to length(ar_string) - 1 do
  42.       begin
  43.         if length(smin)>length(ar_string[count]) then
  44.           smin:=ar_string[count];
  45.         if length(smax)<length(ar_string[count]) then
  46.           smax:=ar_string[count];
  47.       end;
  48.     edit1.Text:=smin;
  49.     edit2.Text:=smax;
  50.   end
  51. else
  52.   showmessage('Массив пустой');
  53. end;
  54.  
  55. end.
Поделиться:

Похожие статьи:

теги: динамический массив, студенты, массив, memo, edit