текстовые файлы ОЧЕНЬ НУЖНА ПОМОЩЬ

[leest]

Вот задача: Существует текстовый файл, в котором хранится информация(названия, цвет, количество, цена и шифр товара),в данном случае мебель. При нажатии кнопки(добавить информацию о товаре) программа должна "просмотреть" весь текстовый файл, и если там не существует такого наименования, должна добавить информацию в конец файла, если же такое название существует, то изменить параметры(к примеру, в тексте уже встречался красный стул количеством 3 и мы еще добавляем с клавиатуры 5 и необходимо, чтобы в файл записалось: красный стул, количество 8...). Заранее огромное спасибо за помощь...

вот код программы, то что я сумел сам сделать...

unit kladovwik;

interface

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

type
TForm2 = class(TForm)
Button1: TButton;
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
LabeledEdit4: TLabeledEdit;
LabeledEdit5: TLabeledEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure dobavlenie(var q: string; var w:integer);
var i,e:integer;
begin
if length(q)<w then begin
e:=w-length(q);
for i:=1 to e do begin
q:=q+' ';
end;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var f:textfile;
a,b,c,d,k,y:integer;
name,cvet,kolvo,cena,wifr,polname,f name,str,myline,x:string;

begin
name:=labeledEdit1.text;
cvet:=labeledEdit2.text;
kolvo:=labeledEdit3.text;
cena:=labeledEdit4.text;
wifr:=labeledEdit5.text;
polname:=name+' '+cvet;


fname:='D:\mybase.txt';
assignfile(f,fname);
{$I-}
reset(f);
{$I+}
if IOResult<> 0 then Rewrite(f);

a:=50; b:=10; c:=10; d:=10;
dobavlenie(polname,a);
dobavlenie(kolvo,b);
dobavlenie(cena,c);
dobavlenie(wifr,d);

k:=0;
while (not EOF(f) and (k=0)) do
begin
readln(f,myline);
k:=pos(polname,myline);
end;

if k<>0 then begin
x:=copy(myline,50,10);
y:=strtoint(kolvo)+strtoint(x);
delete (myline,50,10);
insert(kolvo,myline,50);
end
else begin
closefile(f);
append(f);
str:=polname+kolvo+cena+wifr;
writeln(f,str);
showmessage('Информация успешно сохранена');
closefile(f);
end;

labelededit1.clear;
labelededit2.clear;
labelededit3.clear;
labelededit4.clear;
labelededit5.clear;

end;


end.

[Alex21]

Для начала перейдите на типизированные файлы.
Или можно оформить в виде БД.
Информации на форуме по этим вопросам много.

[leest]

так в том-то и проблема, что нужно как текстовый файл оформить, а не как БД...

[leest]

подскажите пожалуйста как заменить одну строку в текстовом файле другой...функции delete,insert не работают в текстовых файлах?заранее премного благодарен!

[Serge_Bliznykov]

Если мне память не изменяет, то:
описываете файл как набор байт (file of byte или file of char) либо как вообще нетипизированный (f: file, потом делайте этому файлу Reset(f,[1]);
А после этого можете и читать и писать...
для файлов f:text - можно или читать (Reset(f), или только писать (Rewrite(f))) - из стандартной справки: If F is a text file, F becomes read-only.

[puporev]

Открыть файл для записи. Прочитать строки в массив of string (одна строка-один элемент массива). В массиве переделать, что надо и записать в файл.

[leest]

спасибо всем огромное, доделал...