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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

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





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

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


здрасти всем, извените что спрашиваю такой простой вопрос... но мне нужно описать 2 кнопки пробывал своими силами но ничего не могу поделать... так вот что мне нужно...
в одном мемо уже есть текст, а второе мемо пока пустое... мне надо чтобы счетчик или курсор шел по строкам, при нажатии первой кнопки он перекидывал ее во второе мемо, и перешел на следущею строку. а при нажатии второй кнопочки, он перешел на следущею строчку... не могу построить цикл, помогите пожайлуста
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


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

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

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

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

 





- Текстовая версия 23.09.2020 10:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name