Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

FFF © (2003-09-16 12:44:00)

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

Sandman25 (2003-09-16 16:28:00) [1]

FFF

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

FFF (2003-09-16 15:06:00) [2]

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

alex-ran (2003-09-16 14:49:00) [3]

Берешь форму, бросаешь на нее 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

Anatoly Podgoretsky (2003-09-16 14:44:00) [4]
http://www.delphikingdom.com/lyceum/seminar.asp?partID=4&LessonID=17

FFF (2003-09-16 14:43:00) [5]

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

Кщд (2003-09-16 14:37:00) [6]

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

FFF (2003-09-16 14:26:00) [7]

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

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

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

FFF (2003-09-16 13:56:00) [9]

> 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;

Sandman25 (2003-09-16 12:54:00) [10]

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

Deniz (2003-09-16 12:54:00) [11]

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

FFF (2003-09-16 12:51:00) [12]

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

Sandman25 (2003-09-16 12:49:00) [13]

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

Johnmen (2003-09-16 12:48:00) [14]

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

Johnmen (2003-09-16 12:48:00) [15]

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

Наверх

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