[poli-smen]

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

можете помочь сделать в программе ввод значений в ячейки программы из текстового файла? ранее приходилось делать такое но только там были матрицы которые вводились в Memo а как посторочьно вводить значения из текстового файла в edit не когда не приходилось..

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: Integer;
  Comp: TComponent;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('пример текстового файла с данными.txt');
    for i := 0 to sl.Count - 1 do
    begin
      Comp := FindComponent('Edit_' + sl.Names[i]);
      if Assigned(Comp) and (Comp is TEdit) then TEdit(Comp).Text := sl.ValueFromIndex[i];
    end;
  finally
    sl.Free;
  end;
end;