Запись из файла txt в StringGrid

[mafuea]

Заранее прошу прощение за повтор темы.

У меня есть текстовый файл с таблично заданной функцией. Мне нужно значения этой функции забить в StringGrid. Первая колонка-это значения аргумента, вторая-значения самой функции. Мучалась долго, никак не получается.
Помогите плиз...

[Mad_Cat]

как в текстовике хранятся данные? Пример можно?

[Serge_Bliznykov]

вообще не вижу никаких сложностей!

Мучалась долго, никак не получается.

ну так покажите Ваш код!

Где именно и как у Вас задана таблица значений функции?

[mafuea]

например вот так:
x y
0.5 0,3
1 2
1.5 0
2 1.3
2.5 0.6
3 3.6

[mafuea]

разделитель между числами - пробел

[mafuea]

Мой код выглядит так. Он не работает и написана полная чушь... поэтому я попросила помощи... тк я чайник))

procedure TForm1.FormCreate(Sender: TObject);
begin
      OpenDialog1.filter:= 'Текст|*.txt';
end;


procedure TForm1.Button1Click(Sender: TObject);
var f: TextFile;
    fName: String[80];
    buf: String[80];
begin
 if not OpenDialog1.Execute
  then exit;

  fName:= OpenDialog1.FileName;
  Form1.Caption:= fName;
  AssignFile(f, fName);

  try
     Reset(f);
  except
      on EInOutError do
     begin
      ShowMessage('Ошибка доступа к файлу '+ fName);
      exit;
      end;
end;
    while NOT EOF(f) do begin
    readln(f,buf);
     stringGrid1.Cells[0,i]:=buf(i);
     stringGrid1.Cells[j,0]:=buf(j);
     i:=i+1;
     j:=j+1;
    end;
   closefile(f);

   end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

попробуйте на нажатие кнопки такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  TS : TStringList;
  s : string;
  x, y : extended;
  i, j, CountRow, k : integer;
begin
  if not OpenDialog1.Execute
    then exit;

  Form1.Caption := OpenDialog1.FileName;

  TS := TStringList.Create;
  try
    TS.LoadFromFile( OpenDialog1.FileName );
  except
     FreeAndNil( TS );
     ShowMessage('Ошибка доступа/чтения файла ' + OpenDialog1.FileName);
     exit;
  end;

  StringGrid1.FixedRows := 0;
  StringGrid1.FixedCols := 0;
  StringGrid1.ColCount := 2;
  StringGrid1.RowCount := TS.Count;

  CountRow := 0;
  for i:=0 to TS.Count - 1 do begin
     s := Trim(TS.Strings[i]);
     if Pos(' ', s ) > 0 then begin
        s := StringReplace( s, '.',  DecimalSeparator,  [rfReplaceAll] );
        s := StringReplace( s, ',',  DecimalSeparator,  [rfReplaceAll] );
        Val(Trim(Copy(s, 1, Pos(' ', s )-1)), x, k);
        if k<>0 then {в начале строки идёт НЕ ЧИСЛО - игнорируем всю строчку} Continue;
        Val(Trim(Copy(s, Pos(' ', s )+1, 255)), y, k);
        if k<>0 then {в начале строки идёт НЕ ЧИСЛО - игнорируем всю строчку} Continue;

        {всё хорошо. найденные значения записываем в StringGrid}
        Inc(CountRow); {увеличиваем счётчик строк}
        StringGrid1.Cells[0, CountRow-1] := FloatToStr( x );
        StringGrid1.Cells[1, CountRow-1] := FloatToStr( y );
     end;
  end;

  // подкорректируем размер грида - число строк сделаем равным счётчику
  StringGrid1.RowCount := CountRow;

  FreeAndNil( TS ); {очистим список}

end;