Текущий архив: 2007.03.04;
Скачать: 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 вся ветка
Текущий архив: 2007.03.04;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.045 c
