Привет всем!, уважаемые мастера помогите, как мне обработать

← →
FFF (2003-09-16 12:44) [0]

Тексотвый файл,т.е есть файл(txt):
-----------------------------
123;109213;00;234324;0;0
-----------------------------
мне нужно его прочитать и
открыть его в StringGrid-e так что бы было вот так:
------------------------------------------------
Поле1 Поле2 Поле3 Поле4 Поле5 Поле6
123 109213 00 234324 0 0
------------------------------------------------
если есть у кого пример покжите пож-ста, срочно нужно.
Всем заранее спасибо!

← →
Johnmen (2003-09-16 12:48) [1]

Не надо было не прогуливать уроки информатики !!!

← →
Johnmen (2003-09-16 12:48) [2]

Не надо было прогуливать уроки информатики !!!

← →
Sandman25 (2003-09-16 12:49) [3]

Читайте файл (TextFile AssignFile Readln), а затем произведите разбор строки на элементы, используя поиск (Pos) точки с запятой.

← →
FFF (2003-09-16 12:51) [4]

>Sandman25
а на примере можно?
очень нужно...
буду очень благодарен

← →
Sandman25 (2003-09-16 12:54) [5]

Примеры в помощи есть. Кнопка F1.
Почитайте, подумайте, попробуйте написать сами. Если будут проблемы, обращайтесь - постараюсь помочь. Но писать все за Вас я не буду, уж извините :)

← →
Deniz (2003-09-16 12:54) [6]

while not eof(f) do begin read(f,s); while pos(";",s)>0 do begin // insert into StringGrid end; end;
Дальше самостоятельно додумай

← →
FFF (2003-09-16 13:56) [7]

> ALL
Вот кусок моей проги, но она почему то не правильно работает,
т.е., значание последнего столбца, он не показывает, и по строкам не бежит, в чем
моя ошибка?

Var i,j,k,Pos1,Pos2,f:integer;
s,s1,s2,s3:string;
begin
k:=Length(Trim(Memo1.Lines.Text));
s:=Trim(Memo1.Lines.Text);
i:=Memo1.Lines.Count;
Pos1:=0;
Pos2:=0;
f:=1;
For f:=0 to i Do Begin
For j:=1 to k Do Begin
If Copy(s,j,1)=";" then
Begin
If pos1<13 then
begin
s3:=Trim(copy(s,1,pos(";",s)-1)) ;
s:=Trim(copy(s,pos(";",s)+1,length(s)));
StringGrid1.Cells[pos1,f]:=s3;
pos1:=pos1+1;
End
End;
end;
End;

end;

← →
alex-ran (2003-09-16 14:01) [8]

А не проще ли обратиться к этому файлу как к файлу БД?
И считать не в StringGrid а в DBGrid?

← →
FFF (2003-09-16 14:26) [9]

>alex-ran
а как в дбгрид считать?, можешь показать пример?

← →
Кщд (2003-09-16 14:37) [10]

>alex-ran
просвети?

← →
FFF (2003-09-16 14:43) [11]

>alex-ran
мы ждем вашего примера......

← →
Anatoly Podgoretsky (2003-09-16 14:44) [12]

http://www.delphikingdom.com/lyceum/seminar.asp?partID=4&LessonID=17

← →
alex-ran (2003-09-16 14:49) [13]

Берешь форму, бросаешь на нее TTable, TDataSource, TDBGrid, связываешь их между собой.
Для своего текстового файла создаешь файл с тем же именем, но с расширением SCH, где описываешь структуру своего файла, например:

CUSTOMER.SCH:

[CUSTOMER]
Filetype=VARYING
Delimiter="
Separator=,
CharSet=ascii
Field1=Customer No,Float,20,04,00
Field2=Name,Char,30,00,20
Field3=Phone,Char,15,00,145
Field4=First Contact,Date,11,00,160

Далее в свойстве TableName указываешь путь к твоему тхт
И все, при Тable1.Active:=True в твоем DBGride есть все данные.

А вообще почитай про ASCII-файлы в справке
Borland Database Engine Online Reference

← →
FFF (2003-09-16 15:06) [14]

Спасибо всем,кажется получится
:-)

← →
Sandman25 (2003-09-16 16:28) [15]

FFF

Извините, что раньше не написал - были проблемы с инетом :(
Если у Вас не получится с БД, я могу попытаться подкорректировать [7] FFF (16.09.03 13:56) как обещал :)

Привет всем!, уважаемые мастера помогите, как мне обработать Найти похожие ветки