0 / 0 / 0
Регистрация: 05.07.2011
Сообщений: 13
1

блокнот

05.07.2011, 08:41. Показов 1070. Ответов 1
Метки нет (Все метки)

как сделать что бы менялись 1 и 5 строки и найти кол-во строк
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
unit Unit1; 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, Menus;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    procedure FormResize(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormResize(Sender: TObject);
begin
Memo1.Width:=Form1.Width-8;
Memo1.Height:=Form1.Height-55;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.N5Click(Sender: TObject);
begin
SaveDialog1.Execute;
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2011, 08:41
Ответы с готовыми решениями:

Блокнот
Добрый вечер, пользователи Кибер-Форума. Хочу попросить у вас элемент кода. В моем задании нужно...

блокнот
помогите создать блокнот на языке дельфи с использованием компонента Actionlist, и панелью с со...

БЛОКНОТ
помогите создать блокнот(((((((((((

блокнот
Доброго времени суток) помогите пожалуйста доделать блокнот. оч нужно... уже почти готово осталось...

1
19 / 19 / 5
Регистрация: 26.05.2011
Сообщений: 65
05.07.2011, 08:53 2
Кол-во строк - Memo1.Lines.Count;
Delphi
1
2
3
4
5
6
var temp: String;
begin
  temp:=Memo1.Lines[0];
  Memo1.Lines[0]:=Memo1.Lines[4];
  Memo1.Lines[4]:=temp;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2011, 08:53
Помогаю со студенческими работами здесь

блокнот
как сделать рабочим PageSetupDialog(в том плане чтобы можно было управлять параметрами страницы в...

блокнот
написать блокнот

Многостраничный блокнот
Доброго времени суток. Подскажите пожалуйста можно ли сделать данный код более компактным? unit...

Текстовый блокнот
Доброг времени суток!!! Доделать блокнот (не могу сделать сохранение и открытие документа, а так же...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru