Получить содержание второй строки из TMemo

@ElegantLady · Регистрация: 31.05.2013

Author24 — интернет-сервис помощи студентам

есть код на Dilphi7

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons, Menus;
 
type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    Tree: TTreeView;
    shrift1: TFontDialog;
    loadtree: TOpenDialog;
    Download: TButton;
    Color1: TButton;
    New: TButton;
    Deleted: TButton;
    working: TMemo;
    Splitter1: TSplitter;
    bar: TStatusBar;
    REname: TBitBtn;
    menutree: TPopupMenu;
    menuworking: TPopupMenu;
    Downloar1: TMenuItem;
    New1: TMenuItem;
    delete1: TMenuItem;
    Rename1: TMenuItem;
    Shrift2: TMenuItem;
    N1: TMenuItem;
    color: TColorDialog;
    Save: TButton;
    SaveDialog1: TSaveDialog;
    widthForm: TButton;
    procedure DownloadClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DeletedClick(Sender: TObject);
    procedure NewClick(Sender: TObject);
    procedure TreeClick(Sender: TObject);
    procedure Color1Click(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure REnameClick(Sender: TObject);
    procedure Downloar1Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure delete1Click(Sender: TObject);
    procedure Rename1Click(Sender: TObject);
    procedure Shrift2Click(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure widthFormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.DownloadClick(Sender: TObject);
 
begin
  {if shrift.Execute then
  working.Font.Assign(shrift.Font);}
   if loadtree.Execute then
 
   Tree.loadfromfile( loadtree.Filename);
   tree.FullExpand;
  // tree.PopupMenu:= menutree;
end;
 
procedure TForm1.FormShow(Sender: TObject);
var //Time:Tdatetime;
D: double;
begin
Tree.items.clear;
  bar.Panels[0].Width:=150;
  //bar.panels[0].Text:='Время  '   + timetostr(date);
  bar.Panels[1].Text:='размеры панели   ' +inttostr(Panel1.width)+' : ' + inttostr(Panel1.height) ;
 
    D:=now();
    D:=D-366;
    bar.panels[0].Text:=FormatDatetime('yyyy',D);
end;
 
 
procedure TForm1.DeletedClick(Sender: TObject);
begin
 //tree.PopupMenu:= nil;
tree.Items.Clear;
working.Lines.Clear;
end;
 
procedure TForm1.NewClick(Sender: TObject);
begin
Tree.Items.Clear;
 
Tree.Items.Add(nil, 'Компьютерная техника');
Tree.Items.AddChild(Tree.Items.Item[0], 'Вид');
Tree.Items.AddChild(Tree.Items.Item[1], 'планшеты');
Tree.Items.AddChild(Tree.Items.Item[1], 'нетбуки');
Tree.Items.AddChild(Tree.Items.Item[1], 'ноутбуки');
Tree.Items.AddChild(Tree.Items.Item[0], 'Тип');
 
 
 
Tree.Items.AddChild(Tree.Items.Item[5], 'диагональ экрана');
Tree.Items.AddChild(Tree.Items.Item[5], 'расширение');
 
 
 
tree.FullExpand;
// tree.PopupMenu:= menutree;
 
end;
 
procedure TForm1.TreeClick(Sender: TObject);
begin
if tree.Selected.Count=0 then
begin
  working.Clear;
  working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
 
  try
     working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
  except
     working.Lines.add('нет даных');
 
     end;
end;
end;
 
procedure TForm1.Color1Click(Sender: TObject);
begin
if Color.Execute then
   working.Color:=Color.color;
end;
 
procedure TForm1.Panel1Resize(Sender: TObject);
begin
    bar.Panels[1].Text:='размеры панели   ' +inttostr(Panel1.width)+' : ' + inttostr(Panel1.height)
end;
 
procedure TForm1.REnameClick(Sender: TObject);
  var
  value : string;
 
 begin
 
 if tree.Selected=nil then
 begin
  showmessage ('не выбран узел');
  exit;
  end;
 
 if tree.Selected.Count=0 then
  showmessage ('нельзя переименовать узел')
  else
 
    if  InputQuery('переименование', 'укажите новое название', value)
    then tree.Selected.Text := value;
 
end;
 
 
procedure TForm1.Downloar1Click(Sender: TObject);
begin
Download.Click;
end;
 
procedure TForm1.New1Click(Sender: TObject);
begin
New.Click ;
end;
 
procedure TForm1.delete1Click(Sender: TObject);
begin
Deleted.Click;
end;
 
 
procedure TForm1.Rename1Click(Sender: TObject);
begin
  REname.Click;
end;
procedure TForm1.Shrift2Click(Sender: TObject);
begin
Color1.Click ;
end;
 
procedure TForm1.SaveClick(Sender: TObject);
 var
 FName:String;
 
begin
    SaveDialog1.FileName := FName;
if SaveDialog1.Execute then
 begin
  FName := SaveDialog1.FileName;
  tree.SaveToFile(FName);
 end;
 
end;
 
procedure TForm1.widthFormClick(Sender: TObject);
 
   var
  value1 : string;
    begin
    try
    if  InputQuery('Ширина', 'Укажите ширину', value1)
    then Form1.width :=StrToInt(value1);
    except
    ShowMessage ('Ширина задана не верно');
    end;
end;
 
end.

нужно вместо "размеры панели" в строке состояния вывести содержание второй строки из ТMemo(у меня она называется working)
т.е. чтобы если слева нажимаешь,например, на "планшеты", то в строке состояния,вместо "размеры панели", появлялось"Вторая строка: Acer"

Получить содержание второй строки из TMemo

@Игорь[Igor] · 14.12.2013, 21:53

Delphi

1	memo1.lines[2]

@Пытливый · 14.12.2013, 22:07

Я правильно понял, что список справа, это набор элементов для формирования дерева слева?

@ElegantLady · 14.12.2013, 22:11 **[ТС]**

да,ты правильно понял

@Игорь[Igor] · 14.12.2013, 22:11

Сообщение от Пытливый

Я правильно понял, что список справа, это набор элементов для формирования дерева слева?

Судя по коду так

Delphi

procedure TForm1.TreeClick(Sender: TObject);
begin
if tree.Selected.Count=0 then
begin
  working.Clear;
  working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
 
  try
     working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
  except
     working.Lines.add('нет даных');
 
     end;
end;
end;

@Пытливый · 14.12.2013, 22:13

Тогда вы неудачно выбрали компонент для этого. Загружайте список лучше в ListBox. Я так подозреваю, что на самом деле ван нужно не просто вторую строку, а текущую строку из элементов справа. Так?

@ElegantLady · 14.12.2013, 22:17 **[ТС]**

мне нужно именно вторую строку из текущих элементов справа

@Игорь[Igor] · 14.12.2013, 22:22

Сообщение от ElegantLady

нужно вместо "размеры панели" в строке состояния вывести содержание второй строки из ТMemo(у меня она называется working)
т.е. чтобы если слева нажимаешь,например, на "планшеты", то в строке состояния,вместо "размеры панели", появлялось"Вторая строка: Acer"

По условию что написано ничего не сказано о том что б строку можно было выбрать из списка и показать в панеле

Добавлено через 1 минуту

Сообщение от ElegantLady

мне нужно именно вторую строку из текущих элементов справа

тогда так, будет браться вторая строка строка из Memo, в начале ошибся написав 2

Delphi

1	working.Lines[1]

@ElegantLady · 14.12.2013, 22:24 **[ТС]**

мне выбрать и не нужно.. мне нужно чтобы она сама появлялась в строке состояния,когда я нажимаю на "планшеты"," нетбуки" и т.д.
но нужна именно вторая строка

Добавлено через 1 минуту
должно выглядеть вот так?

Delphi

1	bar.panels[1].Text:= working.Lines[1];

@Пытливый · 14.12.2013, 22:26

Ну я так и понял. Тогда как я сказал ранее, лучше загрузить элементы в ListBox:

Delphi

1	ListBox1.Items.LoadFromFile('c:\Items.txt');

а получить значение текущего можно так:

Delphi

1	ListBox1.Items.Strings[ListBox1.ItemIndex]

@ElegantLady · 14.12.2013, 22:34 **[ТС]**

Сообщение от Пытливый

Ну я так и понял. Тогда как я сказал ранее, лучше загрузить элементы в ListBox:

Delphi

1	ListBox1.Items.LoadFromFile('c:\Items.txt');

а получить значение текущего можно так:

Delphi

1	ListBox1.Items.Strings[ListBox1.ItemIndex]

а без того чтобы загружать элементы в ListBox никак?

@Пытливый · 14.12.2013, 22:39

Понимаете в чем проблема,у компонента Memo как такового нет понятия выделенная строка, есть там выделенный текст, но это несколько другое. Лучше сразу замените компонент, он у вас идеологически не подходит для того что вы делаете.

@ElegantLady · 14.12.2013, 22:44 **[ТС]**

Сообщение от Пытливый

Понимаете в чем проблема,у компонента Memo как такового нет понятия выделенная строка, есть там выделенный текст, но это несколько другое. Лучше сразу замените компонент, он у вас идеологически не подходит для того что вы делаете.

тогда я не совсем понимаю куда нужно вставить то,что вы написали

@Игорь[Igor] · 14.12.2013, 22:46

Пытливый,
Немного путаеш, ей надо только 2 строка из TMemo, а не выделять строки в самом TMemo

@ElegantLady · 14.12.2013, 22:52 **[ТС]**

Сообщение от Игорь[Igor]

Пытливый,
Немного путаеш, ей надо только 2 строка из TMemo, а не выделять строки в самом TMemo

я написала

Delphi

1	bar.panels[1].Text:= working.Lines[1];

но оно что-то не работает

@Игорь[Igor] · 14.12.2013, 23:00

Сообщение от ElegantLady

я написала

А куда это записано?

@Пытливый · 14.12.2013, 23:00

Если вас устраивает то что предлагает Игорь[Igor] то тогда все что дальше, можете не читать:

Все просто.
1. Убираем из формы ваш компонент TMemo. Вместо него добавляем TListBox. Можете его даже назвать также working.
Далее...
2. У вас есть код:

Delphi

procedure TForm1.TreeClick(Sender: TObject);
begin
if tree.Selected.Count=0 then
begin
  working.Clear;
  working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
 
  try
     working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
  except
     working.Lines.add('нет даных');
 
     end;
end;
end;

слегка меняем его под новый компонент:

Delphi

procedure TForm1.TreeClick(Sender: TObject);
begin
 if tree.Selected.Count=0 
 then if FileExists(tree.Selected.Text+'.txt')
        then working.Items.LoadFromFile(tree.Selected.Text+'.txt')
        else working.Items.add('Нет даных');
end;

Ну и дальше видимо придется подправить в коде старые обращения working.Lines на новые working.Items

@Игорь[Igor] · 14.12.2013, 23:01

Здесь оно должно быть

Delphi

procedure TForm1.TreeClick(Sender: TObject);
begin
if tree.Selected.Count=0 then
begin
  working.Clear;
  working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
 
  try
     working.Lines.LoadFromFile( tree.Selected.Text+'.txt');
  except
     working.Lines.add('нет даных');
 
     end;
 
bar.panels[1].Text:= working.Lines[1];
 
end;
end;

@Пытливый · 14.12.2013, 23:03

Тогда уж перенесите хотябы в try после загрузки удачной
а то вы обращаетесь к несуществующей строке

@Игорь[Igor] · 14.12.2013, 23:05

И еще нужно проверку сделать на случай если нет строк или меньше

Delphi

1 2	if working.Lines.count>=2 then bar.panels[1].Text:= working.Lines[1];

Добавлено через 1 минуту

Сообщение от Игорь[Igor]

if tree.Selected.Count=0 then

и тут что-то не так

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	14.12.2013, 23:00	16
	Сообщение от ElegantLady я написала А куда это записано? 0

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,365
	14.12.2013, 23:03	19
	Тогда уж перенесите хотябы в try после загрузки удачной а то вы обращаетесь к несуществующей строке 0

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,365
	14.12.2013, 22:07	3
	Я правильно понял, что список справа, это набор элементов для формирования дерева слева? 0

@ElegantLady 0 / 0 / 1 Регистрация: 31.05.2013 Сообщений: 28
	14.12.2013, 22:11 [ТС]	4
	да,ты правильно понял 0

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,365
	14.12.2013, 22:13	6
	Тогда вы неудачно выбрали компонент для этого. Загружайте список лучше в ListBox. Я так подозреваю, что на самом деле ван нужно не просто вторую строку, а текущую строку из элементов справа. Так? 0

@ElegantLady 0 / 0 / 1 Регистрация: 31.05.2013 Сообщений: 28
	14.12.2013, 22:17 [ТС]	7
	мне нужно именно вторую строку из текущих элементов справа 0

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,365
	14.12.2013, 22:39	12
	Понимаете в чем проблема,у компонента Memo как такового нет понятия выделенная строка, есть там выделенный текст, но это несколько другое. Лучше сразу замените компонент, он у вас идеологически не подходит для того что вы делаете. 0

@ElegantLady 0 / 0 / 1 Регистрация: 31.05.2013 Сообщений: 28
	14.12.2013, 22:44 [ТС]	13
	Сообщение от Пытливый Понимаете в чем проблема,у компонента Memo как такового нет понятия выделенная строка, есть там выделенный текст, но это несколько другое. Лучше сразу замените компонент, он у вас идеологически не подходит для того что вы делаете. тогда я не совсем понимаю куда нужно вставить то,что вы написали 0

@Игорь[Igor] 726 / 478 / 130 Регистрация: 24.12.2008 Сообщений: 3,924
	14.12.2013, 22:46	14
	Пытливый, Немного путаеш, ей надо только 2 строка из TMemo, а не выделять строки в самом TMemo 0