Цитата:
Цитата:
|
я конечно же потестил,перед тем как спросить,эээ вообщем результат нуль!ничего в файле не изменилось
|
С чего бы ему изменяться если ты в нем ничего не менял. Покажи мне кусок кода где ты в файл присваиваешь новое значение?
|
хаха,извини m1sclick,мой прошлый код :
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
j: integer;
begin
s:='<body>';
j:= pos('<body>',memo1.Text)+6;
insert(edit1.text,s,j);
memo1.Lines.SaveToFile('C:\index.html');
end;
end.
и правда смешной (и воообще глупость-ниочём)
просто не понемал(хотя может быть и сейчас не понимаю)=)
Цитата:
|
Я не пойму проблемы. Если мой код работает зачем писать еще что то?
|
Хочу понять от первой до последней буквы,и строго написать,сам головой подумать=)
Цитата:
|
Я так понимаю ты совсем не Delphi программист, а HTML?
|
в точку=)
m1sclick,ну вот я подумал,вроде накидал(который бы дополнял) что-то проверь пожалуйста проверь правильно ли я понимаю что натворил?:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var text,s:string; //обозначаю пременную text и s как строку
i:integer; //переменную i как целое число
begin
text:=memo1.lines.text; //гружу в переменную text все что в memo1(гружу для обработки)
s:=edit1.Text; //s будет все что я напишу в edit1
i:=pos('<body>',text)+6; //переменная i вернет цифру когда начнется <body> и прибавит к этой цифре 6 символов вперед(чтоб писалось после <body>)
insert(s,text,i); //вставляю то что в edit1 в переменную text(в ней содержимое всего memo1) ,указываю позицию сколько отступить(6) прежде чем вставить
memo1.Lines.Text:=text;//гружу обратно все что в переменной text(уже измененный и вставленный edit1'ом) в memo1
memo1.Lines.SaveToFile('C:\index.html');// сохраняю в файл все что в memo1
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\index.html');// гружу в memo1 содержимое файла каторый находиться по адресу C:\index.html
end;
end.
поправь,обясни пожалуйста если я что то неправильно понимаю.