Подскажите где ошибка

← →
ANTPro © (2007-05-09 22:49) [0]

Или нубский вопрос о TFileStream %)
Почему файл не создается/открывается?

Код:
var LogFile:TFileStream; ... LogFile.Create("SQL.log",fmCreate or fmOpenWrite or fmShareDenyNone); LogFile.Seek(0,soFromEnd); LogFile.Write(str,Length(Str));
Эх в KOL так все предсказуемо : )

← →
ferr © (2007-05-09 22:52) [1]

а разьве не LogFile := TFileStream.Create .. ?

P.S. С дельфи давно не сталкивался так что могу ошибаться.

← →
ferr © (2007-05-09 22:55) [2]

Ещё не забывай сбрасывать буфер...

← →
ANTPro © (2007-05-09 22:57) [3]

> [2] ferr © (09.05.07 22:55)

Спасибо. Блин засплюсплюсился совсем :(

← →
Johnmen © (2007-05-09 22:58) [4]

> Почему файл не создается/открывается?

Потому, что TFileStream.Create+F1 надо читать. И читать внимательно.

← →
ANTPro © (2007-05-09 23:10) [5]

> [4] Johnmen © (09.05.07 22:58)
>И читать внимательно.

В 11 ночи это тяжело, долго втыкал чего не хватает %)
И кстати жаль что в F1 примеров нету.

← →
Юрий Зотов © (2007-05-09 23:23) [6]

> ANTPro © (09.05.07 22:49)
> Эх в KOL так все предсказуемо :)

А в этой ветке вдруг неожиданно выяснилось, что и в Delphi все тоже довольно-таки неплохо предсказуемо.

> ANTPro © (09.05.07 23:10) [5]
> И кстати жаль что в F1 примеров нету.

Угадайте с трех раз, откуда скопировано вот это:
This example copies a specified file into the same directory as the (cross-platform) application. procedure TForm1.Save1Click(Sender: TObject); var NewFileName: string; Msg: string; NewFile: TFileStream; OldFile: TFileStream; begin NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text); Msg := Format("Copy %s to %s?", [Edit1.Text, NewFileName]); if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then begin OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite); try NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead); try NewFile.CopyFrom(OldFile, OldFile.Size); finally FreeAndNil(NewFile); end; finally FreeAndNil(OldFile); end; end; end;

← →
Kerk © (2007-05-09 23:24) [7]

Ну затупил человек на ночь глядя, давайте его заклеймим теперь. Ну нафиг :)

← →
ANTPro © (2007-05-09 23:46) [8]

> [6] Юрий Зотов © (09.05.07 23:23)
> Угадайте с трех раз, откуда скопировано вот это:

Это экземпл к FileCreate %) . Мдя, в двух кликах от Create
Я хелпом редко пользуюсь, чуствую зря, но как всегда времени нету только 10% сделано, а сдавать через 2 дня %(

> Я хелпом редко пользуюсь, чуствую зря, но как всегда времени
> нету только 10% сделано, а сдавать через 2 дня %(
>

Нет времени прочитать хелп, нет результата! И причём тут время!?

← →
P (2007-05-10 03:17) [10]

> Johnmen © (09.05.07 22:58) [4]
>
>
> > Почему файл не создается/открывается?
>
> Потому, что TFileStream.Create+F1 надо читать. И читать
> внимательно.

А может лучше с азов для начинающих?

> Я хелпом редко пользуюсь, чуствую зря, но как всегда времени
> нету только 10% сделано, а сдавать через 2 дня %(
>

Ну хоть один раз его прочитай. Ну или книжку самую дешевую. В которой описана разница между вызовом метода Create у класса и у экземпляра класса.
Не, ну достаточно "одной таблетки"!

Подскажите где ошибка Найти похожие ветки