|
Вопрос # 4 318/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Вот нашел в инете пример части кода для открытия и сохранения файла, только не совсем в нем разобрался((( Если не сложно, объясните, пожалуйста, кто-нибудь, буду очень признателен))
Приложение: Переключить в обычный режим- function SaveToFile(var Data: TStringList;const FileName: TFileName):boolean;
- var i: integer;
- Ext: string;
- begin
- ext:='';
- for i:=0 to 3 do
- ext:=FileName[Length(FileName)-i]+Ext;
- if Ext<>'.txt' then Ext:=FileName+'.txt'
- else Ext:=FileName;
- result:=false;
- Data.SaveToFile(Ext);
- Result:=true;
- end;
-
- function LoadFromFile(FileName: TFileName; FileBlock:integer; var date: TMyDate):boolean;
- var f: textfile;
- Hlp: string;
- Block:String;
- Si: TStringList;
- begin
- Si:=TStringList.create;
- result:=False;
- if not(FileExists(FileName)) then exit;
- if (FileBlock<1) then Exit;
- AssignFile(f, Filename);
- reset(f);
- Si.LoadFromFile(FileName);
- If FileBlock>Si.Count then Exit;
- Hlp:=Si.Strings[FileBlock-1];
- Date:=TMyDate.Create;
- Block:=Hlp[1]+Hlp[2];
- Date.Day:=StrToInt(Block);
- Block:=Hlp[4]+Hlp[5];
- Date.Mounth:=StrToInt(Block);
- Block:=Hlp[7]+Hlp[8]+Hlp[9]+Hlp[10];
- Date.Year:=StrToInt(Block);
- CloseFile(f);
- Result:=True;
- end;
 |
Вопрос задал: snup90 (статус: Посетитель)
Вопрос отправлен: 14 июня 2010, 17:11
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 14 июня 2010, 20:39; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 14 июня 2010, 17:44 [#2]:
Почитал исходник... Жуть какая! За такой код надо руки из задницы вырывать и вставлять в плечи.
Выкинь этот кошмар и напиши всё с нуля. Или объясни, что тебе нужно, если не сможешь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
snup90 (статус: Посетитель), 14 июня 2010, 18:11 [#3]:
В первой процедуре я не совсем понял, что там происходит с расширением ext а тек там вроде более менее ясно..
А вот во второй.. что там с hlp происходит.. и правда жуть!
и что там за block и к чему он там я тоже не понял.
|
|
|
min@y™ (статус: Доктор наук), 14 июня 2010, 20:39 [#4]:
Цитата (snup90):
В первой процедуре я не совсем понял, что там происходит с расширением ext а тек там вроде более менее ясно.. А вот во второй.. что там с hlp происходит.. и правда жуть! и что там за block и к чему он там я тоже не понял.
Ты лучше расскажи, что ты хочешь от функций SaveToFile() и LoadFromFile(). Так проще будет. Вполне возможно, что ты получишь готовый отлаженный исходник и выкинешь вышеприведённое дерьмо.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
