Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2006, 02:13   #1
radist
Пользователь
 
Аватар для radist
 
Регистрация: 17.12.2006
Сообщений: 22
Вопрос строки!!!

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

ЗАРАНЕЕ БЛАГОДАРЕН.
От великого до смешного - один шаг.
radist вне форума Ответить с цитированием
Старый 22.12.2006, 09:15   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var ar_string:array of string;
    smin,smax:string;
    count:integer;
begin
setlength(ar_string,memo1.Lines.Count);
for count := 0 to memo1.Lines.Count-1 do
  ar_string[count]:=memo1.Lines[count];  
if length(ar_string)>0 then
  begin
    smin:=ar_string[0];
    smax:=ar_string[0];
    for count := 1 to length(ar_string) - 1 do
      begin
        if length(smin)>length(ar_string[count]) then
          smin:=ar_string[count];
        if length(smax)<length(ar_string[count]) then
          smax:=ar_string[count];
      end;
    edit1.Text:=smin;
    edit2.Text:=smax;
  end
else
  showmessage('Массив пустой');
end;

end.
Исправил )
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи

Последний раз редактировалось Квэнди; 22.12.2006 в 09:56.
Квэнди вне форума Ответить с цитированием
Старый 24.12.2006, 00:58   #3
radist
Пользователь
 
Аватар для radist
 
Регистрация: 17.12.2006
Сообщений: 22
По умолчанию

Все получилось, программа работает, большое спасибо!!!
Цитата:
Сообщение от radist Посмотреть сообщение
Учись так, как будто тебе предстоит жить вечно; живи так, как будто тебе предстоит умереть завтра
От великого до смешного - один шаг.
radist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй gotex Помощь студентам 4 08.05.2008 02:27
Строки Настена Помощь студентам 1 07.01.2008 23:47
Строки. Mr.User Помощь студентам 11 08.12.2007 07:00
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д. vitalik007 Помощь студентам 1 25.09.2007 20:45