| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

открытие текстового файла в StringGrid [D7, XP]

inkvizitor ©   (2007-02-10 10:44:00) 

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

---

inkvizitor   (2007-02-12 09:41:00) [1]

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

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

---

vasIZmax   (2007-02-10 16:02:00) [2]

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

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

---

Loginov Dmitry   (2007-02-10 15:49:00) [3]

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


 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;


---

inkvizitor   (2007-02-10 13:22:00) [4]

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


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

---

Loginov Dmitry   (2007-02-10 12:33:00) [5]

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


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

---

inkvizitor   (2007-02-10 11:59:00) [6]

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

---

vasIZmax   (2007-02-10 11:45:00) [7]

имхо, такой вариант могу предложить.
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:25:00) [8]

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

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

---

vasIZmax   (2007-02-10 11:02:00) [9]

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

---

Наверх