копирование из edit в listbox в free pascal

[kudzey]

вопрос следующий у меня есть программа, она должна редактировать текст,
при этом я использую длы вывода на монитор listbox, как скопировать строку в edit я знаю. а вот как вернёть отредактированную строку назад понять немогу. тоесть мне надо чтоб строка копировалась не по нажатию на кнопку в форме а сразу после редактирования или же по нажатию кнопки на клавеатуре.
вод код моей программы.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes,StrUtils, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
   ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
   end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := Trim(ExtractWord(1, ListBox1.Items[ListBox1.ItemIndex], [';',' ','.',',']));
end;

end.

буду очень благодарен за помощь.

[Stilet]

Пример обработки клавиши Энтер в эдите:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if key=#13 then ListBox1.AddItem(TEdit(Sender).Text,nil);
  TEdit(Sender).Text:='';
end;

end.

Пояснения нужны?

[саша40]

ListBox1.Items.Strings[номер строки]:=edit1.Text;

Проще некуда.

[kudzey]

вставил ваш код, в мою программу, не работает.

TEdit(Sender).Text:='';

что эта строчка делает?

[Stilet]

что эта строчка делает?

Очишает эдит после ввода энтера. Я там в коде оплошность допустил:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if key=#13 then begin
   ListBox1.AddItem(TEdit(Sender).Text,nil);
   TEdit(Sender).Text:='';
 end;
end;

[kudzey]

всё равно не работает в моей программе. тоесть, оно срабатывает, но место того чтоб заменять нужный фрагмент текста, оно просто выделяет текст в edit.

так это вы присвоили строку из listbox в edit. а мне наобород надо.

[Stilet]

тоесть, оно срабатывает, но место того чтоб заменять нужный фрагмент текста, оно просто выделяет текст в edit.

так это вы присвоили строку из listbox в edit. а мне наобород надо.

Ты где такое углядел? В примере Саши? Тогда ты ошибаешься.
Я его дополню:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
with ListBox1 do
  if (key=#13)and(ItemIndex<>-1) then begin
   Items[ItemIndex]:=TEdit(Sender).Text;   
 end;
end;

Заменит тебе по нажатию в Эдите энтера текст в выделенном элементе листбокса.

[kudzey]

вообщем всё ещё не работает. я создал обсолютно новую форму и попробовал записать этот код.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure ListBox1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then begin
   ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
   end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  with ListBox1 do
  if (key=#13)and(ItemIndex<>-1) then begin
   Items[ItemIndex]:=TEdit(Sender).Text;
end;
  end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

end.

вод собственно он. может быть я использую не тот edit. я програмирую в лазарусе и использую edit с панели стандарт.
может проблема в том что я хочу заменить только часть текста, так как у меня идёт список ФИО и мне нужно чтоб при замене например имени всё остальное оставалось неизменным. для этого в первоначальной программе той что выше я создал кучу эжитов в которые я и разделял это всё. сейчас я попробовал создать новую прогу с 1 edit и ваш код опять не работает.
но в этой программе я точно знаю что работают вот такая вот кнопка.

procedure TForm1.Button2Click(Sender: TObject);
begin
  if MessageDlg('Заменить запись?',
    mtInformation,[mbOk,mbCancel],0) = mrOK
  then
  begin
    ListBox1.Items[ListBox1.ItemIndex]:= edit1.Text;
    ListBox1.Items.SaveToFile('FileName');
end;
  end;

но па кнопке опять же не получается редактировать больше одной edit.
кстате она срабатывает аналогично тому как я описывал выше(выделяет текст).
и что с этим делать я не знаю...

[Stilet]

Стесняюсь спросить, а событие для эдита ты вообще создал? Или тупо вставил код в исходник?

[kudzey]

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