Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.03.2008, 18:01
Tovarisch Tovarisch вне форума
Прохожий
 
Регистрация: 18.03.2008
Сообщения: 33
Репутация: 10
По умолчанию Не читает первое слово.

Вот такой вот код загоняет в массив из записей
Код:
type
  Bylet = record
    No:string[12];
    Reys:string[12];
    Data:string[12];
    FIO:string
  end;
Файлик в котором слова через пробел.
Проблема в том что все No:string[12]; остаются пустыми.
И может заодно скажите как указатель в файле вернуть в начало или методы определения количества строк файла без ридлни счетчика)
Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
fname:=Label6.Caption+'\'+Edit6.Text;
AssignFile(f, fname);
Reset(f);

while not EOF(f) do
begin
I:=i+1;
readln(f,s);
end;
SetLength(rec,i);
I:=0;
CloseFile(f);
AssignFile(f, fname);
Reset(f);
while not EOF(f) do
begin
Readln(f,s);
for I := 0 to (length(s)) do
 begin
   if s[i]<>' ' then
    Begin
    case j of
    0:rec[k].No:=rec[k].No+s[i];
    1:rec[k].Reys:=rec[k].Reys+s[i];
    2:rec[k].Data:=rec[k].Data+s[i];
    3:rec[k].FIO:=rec[k].FIO+s[i];
    end
    end
   else J:=j+1;
 end;
k:=k+1;
i:=0;
j:=0;
buf[0]:='';
buf[1]:='';
buf[2]:='';
buf[3]:='';
end;
пользуемся тэгами
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:40.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025