IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Memo, не могу перекинуть...
PakMan
сообщение 3.12.2006 0:55
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Мужской
Реальное имя: Andrey

Репутация: -  0  +


здрасти всем, извените что спрашиваю такой простой вопрос... но мне нужно описать 2 кнопки пробывал своими силами но ничего не могу поделать... так вот что мне нужно...
в одном мемо уже есть текст, а второе мемо пока пустое... мне надо чтобы счетчик или курсор шел по строкам, при нажатии первой кнопки он перекидывал ее во второе мемо, и перешел на следущею строку. а при нажатии второй кнопочки, он перешел на следущею строчку... не могу построить цикл, помогите пожайлуста
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 3.12.2006 10:37
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Так?

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  curr: Integer; // текушая позиция в Memo1

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
  Memo1.Lines.LoadFromFile('C:\toMemo.txt'); // заполняемMemo1
  curr := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if curr <= Memo1.Lines.Count then
   Memo2.Lines.Add(Memo1.Lines[curr]);

  curr := curr + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  curr := curr + 1;
end;

end.



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
PakMan
сообщение 3.12.2006 22:08
Сообщение #3





Группа: Пользователи
Сообщений: 8
Пол: Мужской
Реальное имя: Andrey

Репутация: -  0  +


Цитата(klem4 @ 3.12.2006 13:37) *

спасибо большое, обязательно попробую... ну чувсвуется что похоже на это... заранее благодарю...

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 17.07.2025 23:31
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"