VPF::Блокнот перемешивающий строки.

KPEHDEL

Дата 31.3.2010, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет

Здравствуйте. Я Delphi изучать начал недавно. Для некоторых целей надо написать блакнот, но не простой, а перемешивающий строки.
Подробнее:
Надо сделать блакнот без сохранения и загрузки. Просто поле memo, кнопка "Размешать" и "Кнопка показывающая количество строк" в свободном месте под memo.
В блокнот будет вбивается не более 1 слова в строку. После окончания ввода слов, и нажатии на кнопку "Размешать" должна происходить быстрая перемешка строк.
Делаю так:

Код


unit Notebook;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s: integer; //Переменная строка


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  s := Memo1.Lines.Count; //количество строк


end;

procedure TForm1.Button2Click(Sender: TObject);  //Кнопка показывающая число строк
begin
s := Memo1.Lines.Count;
button2.Caption:=s;
end;

end.

При нажатии на F9 подчёркивае строку s := Memo1.Lines.Count; не могу понять почему. Подскажите пожалуйсто.

M
THandle

Модератор: используйте подсветку кода!

Rennigth

Дата 31.3.2010, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76

Типы разные...

Добавлено через 2 минуты и 55 секунд
Замени

Код


button2.Caption:=s;

на

Код


button2.Caption:=IntToStr(s);

Это сообщение отредактировал(а) Rennigth - 31.3.2010, 17:21

--------------------

(* Honesta mors turpi vita potior *)

KPEHDEL

Дата 1.4.2010, 07:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет

Спасибо большое за столь быстрый ответ, помогло. Буду думать дальше, если появятся вопросы напишу)

KPEHDEL

Дата 1.4.2010, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет

Теперь работает, и после нажатия на кнопку появляется количество строк. Теперь надо сделать, чтобы при нажатии на кнопку "Разбросать" строки разбрасывались (размешивались, менялись местами) рандомом.
Совсем не пойму как это записать в коде кнопки. Пробовал вот так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 button2.Random:=IntToStr(s);
end;

Потом понял, что это глупо. Намекните плиз...

Это сообщение отредактировал(а) KPEHDEL - 1.4.2010, 09:33

Frees

Дата 1.4.2010, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Код


procedure TForm13.Button1Click(Sender: TObject);
var i: integer;
begin
  with Memo1.Lines do
  for I := 0 to Count - 1 do
  begin
    Move(i, random(Count - 1));//или Move(random(Count - 1), random(Count - 1))
  end;
end;

Это сообщение отредактировал(а) Frees - 1.4.2010, 10:10

--------------------

Кольцов Виктор Владимирович

KPEHDEL

Дата 6.4.2010, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 31.3.2010

Репутация: нет
Всего: нет

Спасибо, помогло!) smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »