FileWrite

[Зод]

var
    FileHandle, i: Integer;
    mas: array[0..99] of byte;
begin
    for i:= 0 to 99 do mas[i]:= 0;
    FileHandle:= FileCreate ( 'my.txt');
    FileWrite( FileHandle, mas, 100);
    FileSetDate( FileHandle, DateTimeToFileDate( StrToDateTime( '31.12.99 23:59')));
    FileClose( FileHandle)
end.

Создает файл и т.д. Все нормально выполняется. Вопрос в другом как произвести запись в созданный файл?
Пытаюсь сделать через это:

function FileWrite(var Str : String; StartingIndex, Count : Integer);

Тогда возникает вопрос другой. Если Count записывает в файл значение из Buffer то как назначить текстовое значение буфферу? и есть ли пути решения этой проблемы по проще?
А если вот так выполнить то в файл попадает и дата создания и другая квадратица-непонятица.

var
    FileHandle, i: Integer;
    mas: array[0..99] of byte;
begin
    for i:= 0 to 99 do mas[i]:= 0;
    FileHandle:= FileCreate( 'my.bat');
    FileWrite( FileHandle, 'echo start', 101);
    FileSetDate( FileHandle, DateTimeToFileDate( StrToDateTime( '11.04.2005 23:13')));
    FileClose( FileHandle)
end.

[Stilet]

А что? Стандартные средства Делфи записи в файл уже не в моде?

[Зод]

Ну я сам и только учусь программировать в делфи. Если обьясните стандартные средства создания и редактирвоания файлов то буду очень признателен.

[Человек_Борща]

справка уже тоже не в моде? Обязательно дёргать людей, чтобы они за вас открывали справку и цитировали?

Ладно, хватит сорказма

В общем есть очень простой класс TStringList Модуль Classes(Подключен к проекту по дефолту).

var
  Ts:TstringList;
begin

ts:=TStringList.Create;
try
Ts.LoadFromFile(); //Путь к файлу
ts.add(); //Добавить строку
ts.Delete(n); //Удалить строеу где n номер строки
ts.saveToFile(); //Путь к файлу
finally
FreeAndNil(ts);
end;
end;

Ну а дальше справка в руки и изучайте класс.

[NetSpace]

вот тебе запись в файл:

var F:File;
     i:Integer;//номер позиции, куда ведётся запись в файле
    str:Char;//символ для записи или набор символов можно сделать
begin
AssignFile(F,'Новый.txt');
Reset(F,1);
Seek(F,i);
BlockWrite(F,str,1);
CloseFile(F);

[Зод]

Спасибо огромное.
А вот еще вопрос у меня есть.

procedure TForm1.N6Get(Sender:TObject);
begin
ShellExecute(Handle, 'open', PChar('1.txt'), nil, nil, SW_SHOW);
end;

Компилируется без ошибок но при запуске программы ни каких действий не происходит ( а ведь вроде должен открыться блокнотом 1.txt файл)

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('1.txt'), nil, nil, SW_SHOW);
end;

А это тоже самое только при нажатии кнопки. И вот как раз при нажатии файл открывается на ура.
Что я делаю не так в первом коде? А то кнопки мне ведь не нужны, мне нужно что бы файл сам открывался.

[Serge_Bliznykov]

TForm1.N6Get

а что это за событие, на котором у Вас висит этот обработчик?!
Если это событие не происходит, то и код, соответственно, не выполняется!

p.s. если я правильно понял, "вешайтесь" на событие формы OnCreate...

[Зод]

unit Unit1;

interface

uses
  Windows, ShellApi, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('1.txt'), nil, nil, SW_SHOW);
end;

end.

Я правильно понял как подключаются к форме OnCreate?
Все равно файл автоматом не открывается...

[Stilet]

Все равно файл автоматом не открывается...

А ты полный путь к нему пропиши. Он у тебя где находится, рядом с программой? тогда

PChar(ExtractFilePath(ParamStr(0))+'1.txt')

[Зод]

unit Unit1;

interface

uses
  Windows, ShellApi, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure N6Get (Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.N6Get(Sender:TObject);
begin
ShellExecute(Handle, 'open', PChar('1.txt'), nil, nil, SW_SHOW);
end;

end.

Что не правильно? Почему не выпонляется запуск?
А насчет полного пути он все равно не действует, видимо процедура не подключенна...а как ее подключить? Пробовал задавать параметрами

unit Unit1;

interface

uses
  Windows, ShellApi, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure N6Get (Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.N6Get(Sender:TObject);
begin
ShellExecute(Handle, 'open', PChar('1.txt'), nil, nil, SW_SHOW);
end;
procedure N6Get(sender:TObject);
begin

end;
end.

Она не обьявлена или что? Почему все что описано в процедурах не работает?
____

да, файл в папке с программой.