работа с txt/ini в delphi

[1o1man]

есть программа для расчета площадей. надо сделать чтобы сбоку видимо в TEdit или типа того после расчета добавлялся свежий результат и сохранялся. и чтобы предыдущие результаты тоже отображались. построчно.
как это сделать?
посмотрел как сохранять размеры формы и переменные, ну и восстанавливать их, а как вот в отдельную штуку добавлять сообразить не могу.

IniFile.WriteInteger('MainForm','Ma inFormHeight',MainForm.Height);
IniFile.WriteInteger('MainForm','Ma inFormWidth',MainForm.Width);
IniFile.WriteFloat('MainForm','wiri na',a);
IniFile.WriteFloat('MainForm','viso ta',b);

переменные надо взять из процедуры, которая считает все это

ща разберусь с http://www.delphisources.ru/pages/fa...log_files.html

[1o1man]

взял процедуры из http://www.delphisources.ru/pages/fa...log_files.html

procedure AddLog(LogString: string; LogFileName: string);
procedure GetLog(Count: integer; Strings: TStrings; LogFileName: string);


Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
AddLog(Edit1.Text,LogFileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Clear;
GetLog(50, ListBox1.Items,LogFileName);
end;

присваиваю LogFileName какое-нить значение строковое, пишет эррор, добавляю параметр LogFileName в процедуру, пишет эррор, без него пишет не хватает параметров. что делать?

[XeruH]

Телепаты все в отпуске! Поэтому пиши что за еррор он тебе пишет.

[1o1man]

покопался еще, все сделал )
блин не помню одну штуку, надо скажем первые 10 знаков брать из edit1.text
как сделать?

var
str: String;
begin
str:='Delphi Studio';
SetLength(str, 6);
ShowMessage(str); результат: Delphi

tak? чето не пашет ( как исправить?

edit4.Text:=floattostr(plowad*resul t/100); //имеют значения в процессе выполнения процедуры
edit14.text:=floattostr(aa*bb); //имеют значения в процессе выполнения процедуры
....
asd.text:= 'S пятна: ' + SetLength(edit14.text,9)+ ' кв.см' + ', S черного цвета ' + SetLength(edit4.text,9)+ ' кв.см' ;

ошибка такая [Pascal Error] MainUnit.pas(303): E2197 Constant object cannot be passed as var parameter

[XeruH]

Сообщение от 1o1man

покопался еще, все сделал )
блин не помню одну штуку, надо скажем первые 10 знаков брать из edit1.text
как сделать?

использовать функцию copy

copy(edit1.text, 1, 10);

Сообщение от 1o1man

ошибка такая [Pascal Error] MainUnit.pas(303): E2197 Constant object cannot be passed as var parameter

Значит что ты передаешь константу а в функции/процедуре в этом месте должен идти var параметр

[1o1man]

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

использовать функцию copy

copy(edit1.text, 1, 10);

[Pascal Error] MainUnit.pas(305): E2066 Missing operator or semicolon
[Pascal Error] MainUnit.pas(305): E2010 Incompatible types: 'string' and 'TMenuItem'

ругается на copy(edit14.text, 1, 10)

[XeruH]

точку с запятой не забыл нигде?

[1o1man]

нет, не забыл

edit9.Text:=floattostr(ymax);
edit10.Text:=floattostr(a);
edit11.Text:=floattostr(b);
edit12.Text:=floattostr(aa);
edit13.Text:=floattostr(bb);
edit14.text:=floattostr(aa*bb);
writeparams;
LogFileName:='Log.log';
asd.text:= 'S пятна: ' + copy(edit14.text, 1, 10) + ' кв.см' + ', S черного цвета ' +copy(edit4.text, 1, 10) + ' кв.см' ;
AddLog(asd.text,LogFileName);
ListBox1.Items.Clear;
GetLog(99, ListBox1.Items,LogFileName);

end;

copy(edit14.text, 1, 10) - возвращает тоже string же? если я вместо copy(edit14.text, 1, 10) оставляю просто edit14.text - то прога работает, но в этом поле более 20 знаков, что нафиг не нужно
////////////
up

всё, хз почему,но заново запустив и изменив на copy(edit14.text, 1, 10) все заработало. тема закрыта