VPF::Странная ошибка - Форум программистов

Serik

Дата 22.12.2006, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.10.2006
Где: Москва

Репутация: нет
Всего: нет

Код


procedure TForm3.zapisClick(Sender: TObject);
var
l:integer;
begin
tempmas[1]:=registration.text;
tempmas[2]:=numb_ishod.text;
tempmas[3]:=  nicks .text;
tempmas[4]:=   docum_name .text;
tempmas[5] :=   index.text;
tempmas[6] :=  adres.text;
tempmas[7] :=   ispolnit.text;
tempmas[8] :=    index_komp.text;
tempmas[9] :=      ind_komp.text;
  try
     stream:= tfilestream.Create('nomber.dat',fmopenreadwrite);
  stream.seek(0, soFromBeginning);
  stream.read(temp[1],10);
  nomber:=strtoint(temp[1]);
   edit1.Text:=temp[1];
    finally
  stream.Free;
  end;
    nomber:=nomber+1;
  temp[1]:=inttostr(nomber);
  edit3.text:= temp[1];
   try
    stream:= tfilestream.Create('nomber.dat',fmopenreadwrite);
   stream.seek(0, soFromBeginning);
   stream.write(temp[1],10);
    stream.seek(0, soFromBeginning);
   stream.read(temp[1],10);
     finally
  stream.Free;

   edit2.Text:=temp[1];

end;
end;

значит программа запускается, а потом как запускаю эту процеДУРУ выдается ошибка не подскажете где ошибся, помоеиу что-то с типами, но что?

Matematik

Дата 22.12.2006, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Цитата(Serik @ 22.12.2006, 15:59

)

выдается ошибка

Какая?

Serik

Дата 22.12.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.10.2006
Где: Москва

Репутация: нет
Всего: нет

а потом

Это сообщение отредактировал(а) Serik - 22.12.2006, 16:18

Matematik

Дата 22.12.2006, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Что такое "tempmas" и "temp"?

Serik

Дата 22.12.2006, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.10.2006
Где: Москва

Репутация: нет
Всего: нет

Это масивы типа стринг

MetalFan

Дата 22.12.2006, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

бредовый кусок.
или это не весь код?

--------------------

There are always someone smarter than you...

Serik

Дата 22.12.2006, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.10.2006
Где: Москва

Репутация: нет
Всего: нет

конечно не весь!!! smile

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

MetalFan

Дата 22.12.2006, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

давай описание типов переменных

--------------------

There are always someone smarter than you...

Serik

Дата 22.12.2006, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.10.2006
Где: Москва

Репутация: нет
Всего: нет

Код


type
  TForm3 = class(TForm)
   registration: TLabeledEdit;
    numb_ishod: TLabeledEdit;
    nicks: TLabeledEdit;
    docum_name: TLabeledEdit;
    index: TLabeledEdit;
    adres: TLabeledEdit;
    ispolnit: TLabeledEdit;
    index_komp: TLabeledEdit;
    ind_komp: TLabeledEdit;
    zapis: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;

    procedure zapisClick(Sender: TObject);
  private
    var

    a,b: string;
    k,c:string;
    d:char;
    stream:tfilestream;
    nomber:integer;
     temp: array[0..100] of string;
      tempmas: array[0..9] of string;
      { Private declarations }
  public
    F: textfile;{ Public declarations }
    mas: array[1..11,1..100] of string;
  end;

var
  Form3: TForm3;

implementation

MetalFan

Дата 22.12.2006, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

  SetLength(temp[1], 10 );
   stream.seek(0, soFromBeginning);
   stream.write(temp[1][1],10);
    stream.seek(0, soFromBeginning);
   stream.read(temp[1][1],10);

так должно работать по идее)

--------------------

There are always someone smarter than you...

Serik

Дата 23.12.2006, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 1.10.2006
Где: Москва

Репутация: нет
Всего: нет

не получилось

Matematik

Дата 23.12.2006, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Что не получилось?
Какой код не работает?
Пиши весь код.
А так ошибка в 17 строке.

Добавлено @ 19:30
MetalFan правильно на ошибку указал

MetalFan

Дата 23.12.2006, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(Serik @ 23.12.2006, 19:15

)

не получилось

где теперь ошибка? что не получилось?
я непойму, КОМУ тут нужна помощь? почему из тебя должны доп.информацию клещями вытягивать?! smile

з.ы. 99% на StrToInt валится)

Это сообщение отредактировал(а) MetalFan - 23.12.2006, 19:34

--------------------

There are always someone smarter than you...

Beltar

Дата 23.12.2006, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 627
Регистрация: 11.1.2006

Репутация: 3
Всего: 7

Можно я свои 5 копеек вставлю. При чтении в строку да и в массивы тоже, очень неплохо бы ее длину сначала задать с помощью SetLength. И читать примерно вот так:

Код


SetLength(s,TempInt);
FStream.ReadBuffer(Pointer(s)^,TempInt);

От всяких Access Violation помогает.

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

MetalFan

Дата 23.12.2006, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(MetalFan @ 22.12.2006, 18:11

)

SetLength(temp[1], 10 );
stream.read(temp[1][1],10);

Цитата(Beltar @ 23.12.2006, 19:35

)

SetLength(s,TempInt);
FStream.ReadBuffer(Pointer(s)^,TempInt);

те же яйца, только сбоку ;)

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »