Загрузить текстовый файл в StringGrid

@TT · Регистрация: 02.12.2014

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

Здрасьте Всем!
Хотел попросить помощи. Тут нужно расчитать с симплекс методам я ввел данные в текст файл и открыть Stringgrid-ом но получается так:
В чем ошибка???
Вот код на открытия файла:

Delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.FileName:='';
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);;
OpenDialog1.Execute;
Edit1.Text:=OpenDialog1.FileName;
InFile:=Opendialog1.FileName;
Button2.Enabled:=True;
end;

а это для чтения:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
stringGrid1.Visible:=true;
GroupBox2.Visible:=true;
readfromFile(infile,a);
b:=a;
fh:=copy(opendialog1.FileName,1,length(opendialog1.FileName)-3)+'.out';
assignfile(f,fh);
rewrite(f);
writetoGrid(b);
end;

@northener · 02.12.2014, 02:18

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

Хотел попросить помощи. Тут нужно расчитать с симплекс методам я ввел данные в текст файл и открыть Stringgrid-ом но получается так:
В чем ошибка???

Плохой код "нарыл" на всемирной помойке.

@TT · 02.12.2014, 03:35 **[ТС]**

Посмотрите, в чем ошибка. Тут яснее!

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,248
	02.12.2014, 02:18	2
	Сообщение от TT Хотел попросить помощи. Тут нужно расчитать с симплекс методам я ввел данные в текст файл и открыть Stringgrid-ом но получается так: В чем ошибка??? Плохой код "нарыл" на всемирной помойке. 0

	02.12.2014, 03:35

Опции темы