Скачать: CL | DM;

открытие текстового файла в StringGrid   Найти похожие ветки 

← →
inkvizitor ©   (2007-02-10 10:44) [0]

Добрый день!помогите открыть текстовый файл в стринггриде:
имеется *.txt файл с числами (надо по аналогии с экселем) заносить числа в отдельную ячейку грида.разделитель между числами пробел.

---

← →
vasIZmax ©   (2007-02-10 11:02) [1]

все числа надо чтобы выводило в одну строку(столбец)? или как?

---

← →
inkvizitor ©   (2007-02-10 11:25) [2]

> vasIZmax ©   (10.02.07 11:02) [1]

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

---

← →
vasIZmax ©   (2007-02-10 11:45) [3]

имхо, такой вариант могу предложить.
procedure TForm1.Button1Click(Sender: TObject);
var
worldFile:textfile;
buf:string[3];
buf_1:string[3];
interv:string[1];
i,k,sumX,sumY,a,sumX_2,sumY_2,sum_P,h,c:integer;
proiz,itog:real;
begin
k:=1;
i:=0;  a:=1; sumX:=0; sumY:=0;sumX_2:=0;sumY_2:=0;
AssignFile(worldFile,"\cor\mas.txt");
reset(worldFile);
while not EOF(worldFile) do
begin
readln(worldFile, buf, interv,buf_1);
form1.StringGrid1.Cells[k,a]:=buf;
inc(k);
form1.StringGrid1.Cells[k,a]:=buf_1;
inc(a);
dec(k);
end;
form1.StringGrid1.RowCount:=a;
closefile(worldfile);
end;
вот че-то этом роде...:). Подумай, и для себя исправь

---

← →
inkvizitor ©   (2007-02-10 11:59) [4]

спасиба буду шаманить!

---

← →
Loginov Dmitry ©   (2007-02-10 12:33) [5]

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


А по-русски можно?

---

← →
inkvizitor ©   (2007-02-10 13:22) [6]

> Loginov Dmitry ©   (10.02.07 12:33) [5]
>А по-русски можно?


*.txt    файл  иммет вид:
  ****,**      *****,**
  ****,**      ****,***
  ****,**      ****,**
  ****,**      ****,**
  ............       ..........
в стринггриде должен выводиться:
---------------------------
| ****,**   |     ****,** |
---------------------------
| ****,**   |     ****,** |
---------------------------
|  ****,**  |     ****,** |
---------------------------
|  ****,**  |     ****,** |
---------------------------
|  .............|     .............|
---------------------------
надеюсь понятно объяснил?

---

← →
Loginov Dmitry ©   (2007-02-10 15:49) [7]

вот сразу бы так!


 procedure TForm1.Button1Click(Sender: TObject);
 var
   I: Integer;
 begin
   with TStringList.Create do
   try
     LoadFromFile("e:\MyTextFile.txt");
     sgData.RowCount := Count + 1;
     for I := 0 to Count - 1 do
       sgData.Rows[I + 1].Text := StringReplace(Strings[I], " ", sLineBreak, [rfReplaceAll]);
   finally
     Free;
   end;
 end;


---

← →
vasIZmax ©   (2007-02-10 16:02) [8]

> Loginov Dmitry ©   (10.02.07 15:49) [7]

значительно проще,и ... короче.
2inkvizitor © бери этот вариант:)

---

← →
inkvizitor ©   (2007-02-12 09:41) [9]

> Loginov Dmitry ©   (10.02.07 15:49) [7]

за текст программы спасибо!
---------------------------------------------------------
||   ****.**  |    ******,** ||                                 ||
---------------------------------------------------------
||   ****.**  |    ******,** ||                                 ||
---------------------------------------------------------
||   ****.**  |    ******,** ||                                 ||
---------------------------------------------------------
Но там числа мои в первом столбике через "|" стоят. Хотя идея понятна заменить пробелы на "|" и потом в грид но чето не хватает.
HELPPPPP!!!! НАРОД
ОЧень нада!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.112 c