Как в TEdit поместить текст из файла?

[DimOn4Ik]

Возможно ли в TEdit поместить текст из файла? например в Edit1 число на линии 1,в Edit2 число на линии 2 ?

[mihali4]

Самое простое - читаем в листбокс, первую строку - в Edit1, вторую - в Edit2...
Кто такой листбокс? TStrings... можно и его.

[DimOn4Ik]

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

А это уже второй вопрос в одной теме !
Посему - закрываем...

[Alex Cones]

т.е по сто раз не изменять одно и тоже..

На каждый Edit навешиваем процедуру сохранения по OnChange

[FaTaL]

И тогда для хранения удобнее использовать INI файл.

[DimOn4Ik]

Сообщение от Alex Cones

На каждый Edit навешиваем процедуру сохранения по OnChange

очень хорошая идея попробую)

18:56

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

И тогда для хранения удобнее использовать INI файл.

а почему именно ini?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Никак не усваивается ?
Модератор

[psycho-coder]

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

И тогда для хранения удобнее использовать INI файл.

Да, что вы все на INI помешались? Кроме него ничего не знаете?
(извините, вырвалось)

Вот держи + смотри в хелпе про все что там написано!!!! Обязательно!!

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ...
    Edit8: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    EditList: TStringList;
    procedure SaveEdits(Sender: TObject);
    procedure LoadEdits;
  end;

const
  FileName = 'file.txt';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SaveEdits(Sender: TObject);
var
  EditName: String;
begin
  EditName := TEdit(Sender).Name;
  try
    EditList.LoadFromFile(FileName);
  except
  end;
  EditList.Values[EditName] := TEdit(Sender).Text;
  try
    EditList.SaveToFile(FileName);
  except
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Byte;
begin
  EditList := TStringList.Create;
 // Через Object Inspector не хочет, а когда заставляю - ругается(
    for i := 1 to 8 do
      TEdit(FindComponent('Edit'+IntToStr(i))).OnChange := SaveEdits;
  LoadEdits;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  EditList.Free;
end;

procedure TForm1.LoadEdits;
var
  i: Byte;
  Edit: TEdit;
begin
  try
    EditList.LoadFromFile(FileName);
  except
  end;
  for i := 1 to 8 do
  begin
    Edit := TEdit(FindComponent('Edit'+IntToStr(i)));
    Edit.Text := EditList.Values[Edit.Name];
  end;
end;
end.