Работа с типизированными файлами

[phomm]

Сообщение от NewLamer&Programer

хоть язык бы указал для начала...
на делфи:

Vat StrList: TstringList;
begin
StrList:= TStringList.Create(self);
StrList:= 'x = ' + x + '; y = ' + y;
StrList.SaveToFile('C:\');
StrList.Free;
end;

Товарищ Lamer, Вы коли сами ещё до конца не разобрались, дак хоть не беритесь других-то поучать. Ваш код требует аж 3 исправлений на 4 строки (реального кода).

Var StrList: TstringList;
begin
StrList:= TStringList.Create(); // нет параметра, можно и скобки убрать
// если ху - строки/символы, а так ещё перевести в строку надо, если числа, с помощью InttoStr
StrList.Add('x = ' + x + '; y = ' + y); 
StrList.SaveToFile('C:\полное_имя_файла');
StrList.Free;
end;

И обращаться как к массиву к стринглисту ( StrList[i] ) имеет смысл, когда в нём уже есть строки, а когда он пуст (глядя на оригинальный Ваш код - он пуст) - будет исключение.

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

[Макс Башкинов]

type
  TWeb = record
   end;
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

	
procedure TForm1.FormCreate(Sender: TObject);
var
List: TStringList;
begin
a:=2;
b:=-1;
c:=3;
a1:=3;
b1:=1;
c1:=3;
a2:=2;
b2:=2;
c2:=2;
List[1]:= TStringList.Create;
List[1]:= 'a = ' + inttostr(a) + '; b = ' + inttostr(b);
List.SaveToFile('f');
List.Free;
end;

[phomm]

И обращаться как к массиву к стринглисту ( StrList[i] ) имеет смысл, когда в нём уже есть строки, а когда он пуст - будет исключение.

Макс Башкинов, для Вас тоже это писалось.
Кроме того, привыкайте что индексация массивов (и свойств типа массива) почти везде с 0 , а не с 1.

List[1]:= TStringList.Create; // убрать красное
List[1]:= 'a = ' + inttostr(a) + '; b = ' + inttostr(b); // заменить красное на .Add( в конце закрыв.скобку

Исправьте

[NewLamer&Programer]

phomm, я только хотел помочь

Var очепятка =(
да точно Add тормознул
полное имя тоже тормоз... ночью порой приторамаживать начинаю от недосыпа

[Макс Башкинов]

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

Макс Башкинов, для Вас тоже это писалось.
Кроме того, привыкайте что индексация массивов (и свойств типа массива) почти везде с 0 , а не с 1.


Исправьте

Спасибо, это понятно), другой вопрос, как теперь считать файл в Мемо, если он типизированный, ругается на несовместимость типов

var s:Tweb;
begin
assignfile(f,'f');
reset(f);
while not eof(f) do
begin
readln(f,s);
memo1.Lines.Add(f);
end;
end;

[Mad_Cat]

o_O
а вы зачем file of чего_то_там пихаете в мемо, причем методом типом параметра в котором стоит string

[Макс Башкинов]

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

o_O
а вы зачем file of чего_то_там пихаете в мемо, причем методом типом параметра в котором стоит string

а как будет вернее,

[Mad_Cat]

а как будет вернее,

Вернее Будет толкать вашу типизированную переменную S, точнее даже не саму переменную, а значения ее полей

[Макс Башкинов]

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

Вернее Будет толкать вашу типизированную переменную S, точнее даже не саму переменную, а значения ее полей

не совсем понял вас

[Макс Башкинов]

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

Вернее Будет толкать вашу типизированную переменную S, точнее даже не саму переменную, а значения ее полей

как понять значения полей переменной?