Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Определение длинны текста

Автор: diana_girl 26.5.2007, 01:15

Составить и отладить в среде Borland Delphi программу визуального отображения окна решения задачи перемещения значения одного из произвольных текстов, введённых в соответствующие поля Edit1 и Edit2 в поле Edit3 таким образом, чтобы после щелчка на кнопке «Выбор» определялась длина текстов в полях Edit1 и Edit2 с помощью функции LENGTH и значение более «Длинного» текста, заносилось в поле Edit3. Окно закрывается при щелчке на кнопке «Закрыть».

Автор: Palladin 26.5.2007, 01:23

обработчки кнопки Выбор:

Код


var
x,y:integer;
begin
x=Length(Edit1.Text);
y=Length(Edit2.Text);
if x>y then Edit3.Text=Edit1.Text;
if x<=y then Edit3.Text=Edit2.Text;
end;

Обработчки кнопки закрыть:

Код


Form1.Close();

вроде все

Автор: Guedda 26.5.2007, 09:30

Palladin, уж что-то сильно код странный у тебя ;) Зачем так много лишних переменных?

В общем, открываешь дельфи, на форму кидаешь три едита, две кнопки. В свойстве Caption у первой кнопки пишешь: "Посчитать", а на второй пишешь - "Закрыть". В OnClick первой кнопки пишешь:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  if length(Edit1.Text) > length (Edit2.Text) then
    Edit3.Text := Edit1.Text else
    Edit3.Text := Edit2.Text;
end;

А в событии второй кнопки OnClick пишешь:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

В общем, проект в аттаче лежит:

Автор: Palladin 26.5.2007, 10:40

Цитата(Guedda @ 26.5.2007, 09:30

)

Palladin, уж что-то сильно код странный у тебя ;) Зачем так много лишних переменных?

Ну в данном программе можно не стремится к оптимизации кода smile

Автор: Rodman 26.5.2007, 11:47

Цитата(Palladin @ 26.5.2007, 09:40

)

Ну в данном программе можно не стремится к оптимизации кода

К оптимизации нужно стремится всегда!

M
Rodman

Правильную подсветку текста используйте!