[NekitoSSSS]

помнится, читал гдe-то статейку, в ней делали нечто этакое

Код:

  PDSData = ^TDSData;
  TDSData= record
   param1:string;
   param2:integer;
  end;

...
var a:TDsData;
begin
 a.param1:='z';
 a.param2:=24;
 ...
 writeln(a);

end;

кто знает как реализовывать подобное, подскажите пожалуйста))

[lmikle]

F : File of TDSData спасет. И потом просто Write(F,FDSData);
Вопрос в том, что в этом случае ты должен писать в файл только структуры указанного типа. Если тебе нужна cложная структура данных, то только потоки.

[NekitoSSSS]

спс, помогло!

[Викентий]

попробуй TFileStream

[NekitoSSSS]

Викентий, поправочка к твоей подписи:
try
if Помог=1 then репутация:=репутация+1;
except
on e:ПоздноПомог do Репутация:=Репутация-1;
end;
ок!!! не флуди, я вроде ясно написал что проблема решена!!

[PhoeniX]

НекитоСССС, а теги где?
Мы, программеры, флудить любим...

И, да, разве Помог integer, не boolean? И где обработка исключения "помог, но не работает"?

[NekitoSSSS]

упс, спс, вот поправочка:

Код:

try 
if Помог=тру then inc(репутация);
except 
on e:ПоздноПомог do dec(репутация);
on e1:ПомогНоНеРаботает do inc(o_O);
end;

исправь если с ошибками)))