[UnrealFire]

как сделать запись в фаил с обычного поля ввода текста. фаил String типа не создаёт, только ограниченный типа String[80] и след. не записывает в фаил т.к другой тип. как решить знаний нет.

[YVitaliy]

Сообщение от UnrealFire

как сделать запись в фаил с обычного поля ввода текста. фаил String типа не создаёт, только ограниченный типа String[80] и след. не записывает в фаил т.к другой тип. как решить знаний нет.

Я мало что понял Видимо, ты хочешь записать в типизированный файл строку - это я еще понял. А дальше что не получается? Создаешь, кажись тип

Код:

mystring=string[100];

и файл

Код:

var sfile:file of mystring;

и где-то его записываешь

Код:

var str:mystring;
begin
  AssignFile(f,'D:\F\BORLAND_1\Delphi7\projects\tmp1\2\tstfile.tst');
  Rewrite(f);
  str:=edit1.Text;
  Write(f,str);
  Closefile(f);
end;

[icsander]

Попробуй ч-з TStringList.SaveToFile, либо, что более изящно, ч-з файловый поток.

[UnrealFire]

Сообщение от YVitaliy

Я мало что понял Видимо, ты хочешь записать в типизированный файл строку - это я еще понял. А дальше что не получается? Создаешь, кажись тип

Код:

mystring=string[100];

и файл

Код:

var sfile:file of mystring;

и где-то его записываешь

Код:

var str:mystring;
begin
  AssignFile(f,'D:\F\BORLAND_1\Delphi7\projects\tmp1\2\tstfile.tst');
  Rewrite(f);
  str:=edit1.Text;
  Write(f,str);
  Closefile(f);
end;

типы edit1.text и mystring не совместимы

icsander а можно поподробней, я новичок

[angvelem]

Сообщение от UnrealFire

...а можно поподробней, я новичок

Можно, только более связно объясни свое желание, чтобы гадать не приходилось.

[YVitaliy]

Сообщение от UnrealFire

типы edit1.text и mystring не совместимы

Это с каких таких пор? У меня Delphi7 и они прекрасно совместимы. Если в Edit строка окажется длиннее, то автоматически "обрежется" до необходимого размера. Если так не получается, то лучше уж как советует
icsander, через TStringList (для новичка), или TFileStream (не так уж сложно, но нужны дополнительные операции, которые потом тоже придется разсяснять ).

Код:

var stringList:TStringList;
begin
  stringList:=TStringList.Create;
  stringList.Add(Edit1.Text);
  stringList.SaveToFile('E:\Новая папка\Новая папка1\Новая папка2\TestFile.tst');
  stringList.free;
end;

[UnrealFire]

ок. попробую.
мне нужно чтоб по кнопке заносилась строка из поля ввода в базу отображаемую в окне. база должна хранится в фаиле.

[UnrealFire]

Код:

var stringList:TStringList;
begin
  stringList:=TStringList.Create;
  stringList.Add(Edit1.Text);
  stringList.SaveToFile('db.txt');
  stringList.free;
  Memo1.lines.loadfromfile('db.txt');

конструкция работает. возник вопрос как сделать запись в фаил построчно, что было так: ввёл, нажал кнопку, добавилась строка, снова ввёл, снова нажал, добавилась вторая строка(первая на месте, не удалена) и т.д.
конструкция YVitaliy не работает, не могу вывести из фаила в мемо или лайбел т.к. заносит в фаил какю то калималю из символов.

[Lost_Fish]

Сообщение от UnrealFire

Код:

var stringList:TStringList;
begin
  stringList:=TStringList.Create;
  stringList.Add(Edit1.Text);
  stringList.SaveToFile('db.txt');
  stringList.free;
  Memo1.lines.loadfromfile('db.txt');

конструкция работает. возник вопрос как сделать запись в фаил построчно, что было так: ввёл, нажал кнопку, добавилась строка, снова ввёл, снова нажал, добавилась вторая строка(первая на месте, не удалена) и т.д.
конструкция YVitaliy не работает, не могу вывести из фаила в мемо или лайбел т.к. заносит в фаил какю то калималю из символов.

в твоём случае без StringList'a делать надо Memo.Lines - это и есть твой StringList у него есть Memo.Lines.SaveToFile, loadFromFile и Add

[poli-smen]

Сообщение от UnrealFire

Код:

var stringList:TStringList;
begin
  stringList:=TStringList.Create;
  stringList.Add(Edit1.Text);
  stringList.SaveToFile('db.txt');
  stringList.free;
  Memo1.lines.loadfromfile('db.txt');

конструкция работает. возник вопрос как сделать запись в фаил построчно, что было так: ввёл, нажал кнопку, добавилась строка, снова ввёл, снова нажал, добавилась вторая строка(первая на месте, не удалена) и т.д.

Добавить новую строчку в файл:

Код:

var
  fs: TFileStream;
  s: string;
begin
  if FileExists('db.txt') then
    fs := TFileStream.Create('db.txt', fmOpenWrite or fmShareDenyWrite)
  else
    fs := TFileStream.Create('db.txt', fmCreate);

  try
    s := Edit1.Text + #13#10;
    fs.WriteBuffer(Pointer(s)^, Length(s));
  finally
    fs.Free;
  end;
end;

Сообщение от UnrealFire

конструкция YVitaliy не работает, не могу вывести из фаила в мемо или лайбел т.к. заносит в фаил какю то калималю из символов.

Какая конструкция YVitaliy не работает?

[UnrealFire]

Сообщение от YVitaliy

Я мало что понял Видимо, ты хочешь записать в типизированный файл строку - это я еще понял. А дальше что не получается? Создаешь, кажись тип

Код:

mystring=string[100];

и файл

Код:

var sfile:file of mystring;

и где-то его записываешь

Код:

var str:mystring;
begin
  AssignFile(f,'D:\F\BORLAND_1\Delphi7\projects\tmp1\2\tstfile.tst');
  Rewrite(f);
  str:=edit1.Text;
  Write(f,str);
  Closefile(f);
end;

вот эта.

Lost_Fish спасибо будем пробовать.

[poli-smen]

Сообщение от UnrealFire

вот эта.

Потому что эту конструкцию нужно читать так же как и записываешь. Нельзя прочитать её такой командой:

Код:

Memo1.lines.loadfromfile('D:\F\BORLAND_1\Delphi7\projects\tmp1\2\tstfile.tst');

[UnrealFire]

Код:

unit dict1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons;

type
  TMainForm = class(TForm)
    LogoLabel: TLabel;
    ScrollBox: TScrollBox;
    MainLabel: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  MainForm: TMainForm;
  db:file of string[100];
  Li:String;

implementation

{$R *.dfm}



procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
  fs: TFileStream;
  s: string;
{var str:string[100];
begin
  AssignFile(db,'db.txt');
  Rewrite(db);
  str:=str + #13 + edit1.Text;
  Write(db,str);
  Closefile(db);
  Memo1.lines.loadfromfile('db.txt'); //пишет (т.н. она заносится в фаил) какую-то калималю вместо слов.

end;}

{var stringList:TStringList;
begin
  stringList:=TStringList.Create;
  stringList.Add(Edit1.Text);
  stringList.SaveToFile('db.txt');
  stringList.free;
  Memo1.lines.loadfromfile('db.txt');}

begin
  if FileExists('db.txt') then
    fs := TFileStream.Create('db.txt', fmOpenWrite or fmShareDenyWrite)
  else
    fs := TFileStream.Create('db.txt', fmCreate);

  try
    s := Edit1.Text + #13#10;
    fs.WriteBuffer(Pointer(s)^, Length(s));
  finally
    fs.Free;
  end;
  MainLabel.Caption:=s;
end;

end.

вот код. пишет не по строкам а заменой. Где я ошибся?

[poli-smen]

Сообщение от UnrealFire

вот код. пишет не по строкам а заменой. Где я ошибся?

Это я ошибся. Правильно нужно так:

Код:

var
  fs: TFileStream;
  s: AnsiString;
begin
  if FileExists('db.txt') then
  begin
    fs := TFileStream.Create('db.txt', fmOpenWrite or fmShareDenyWrite);
    fs.Position := fs.Size; // <--- ВОТ ЭТО НУЖНО ДОБАВИТЬ
  end else
  begin
    fs := TFileStream.Create('db.txt', fmCreate);
  end;
 
  try
    s := Edit1.Text + #13#10;
    fs.WriteBuffer(Pointer(s)^, Length(s));
  finally
    fs.Free;
  end;
end;