Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Текстовый Фаил [D5, D6, Win95/98, Win2k]

Страницы: 1 2 >
hooky-mars © (2002-04-14 16:50:00)
Saluer!
Подскажите люди, как в текстовый фаил что-то написать? И чтобы можно было потом в блакноте прочесть! Очень надо!
Зарние благодарен.

hooky-mars (2002-04-14 17:33:00) [1]
Всё сделал, заработало как надо просто в бругую процедуру засунул!
!!!Огромное Спасибо!!!!

hooky-mars (2002-04-14 17:29:00) [2]
Уже делает как наодо, тока в 2 раза болбше сторок бобавляет

MBo (2002-04-14 17:29:00) [3]
да, только если надо конкретные строки менять, MBo © (14.04.02 17:21)

hooky-mars (2002-04-14 17:28:00) [4]
StringList := TStringList.Create;
StringList.LoadFromFile("Unit12.html");
StringList.Add("<html>"+FV+"</html>");
StringList.SaveToFile("Unit12.html");
Вы про такое?

MBo (2002-04-14 17:26:00) [5]
выкинь F и все,что к нему относится

hooky-mars (2002-04-14 17:25:00) [6]

> MBo
Вы много что сказали, а что конкретно?

hooky-mars (2002-04-14 17:25:00) [7]

> MBo
Вя много что сказали, а что конкретно?

MBo (2002-04-14 17:24:00) [8]
я уже сказал - MBo © (14.04.02 17:04)

hooky-mars (2002-04-14 17:22:00) [9]
Пишу таким макаром ругается, да так что я тоакого еще невидел
StringList := TStringList.Create;
write(F,StringList);
StringList.Add("<html>"+FV+"</html>");
Rewrite(F,StringList);

MBo (2002-04-14 17:21:00) [10]
в опр. строках
s:=stringkist[5] //6 строка
работаешь с s
stringlist[5]:=s;

MBo (2002-04-14 17:19:00) [11]
сначала читай, потом
StringList.Add

альтернатива - var f:textfile
и открывать Append

hooky-mars (2002-04-14 17:19:00) [12]

> MBo

Да еще не где-то, а в определённых стороках(хатя это можно решить)

hooky-mars (2002-04-14 17:17:00) [13]

> MBo

Писать записало, но мне надо чтобы програ дабаляла стороки, а не полностью их заменяла.

MBo (2002-04-14 17:14:00) [14]
StringList := TStringList.Create;
StringList.Add("<html>"+FV+"</html>");
StringList.SaveToFile("Unit12.html");
если в FV что-то есть, этого достаточно.

УБЕРИ closefile и т.п. - конфликт.

hooky-mars (2002-04-14 17:14:00) [15]
На вашем же сайте начитался

hooky-mars (2002-04-14 17:11:00) [16]

> Anatoly Podgoretsky

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
WebAdapt, WebComp, WebUsers, WebSess, WebDisp;

type
TPageProducerPage1 = class(TWebAppPageModule)
PageProducer: TPageProducer;
WebAppComponents: TWebAppComponents;
ApplicationAdapter: TApplicationAdapter;
EndUserAdapter: TEndUserAdapter;
PageDispatcher: TPageDispatcher;
AdapterDispatcher: TAdapterDispatcher;
WebDispatcher: TWebDispatcher;
LocateFileService: TLocateFileService;
SessionsService: TSessionsService;
WebUserList: TWebUserList;
Adapter1: TAdapter;
AdapterField1: TAdapterField;
AdapterAction1: TAdapterAction;
procedure AdapterField1GetValue(Sender: TObject; var Value: Variant);
procedure WebAppPageModuleCreate(Sender: TObject);
procedure AdapterAction1Execute(Sender: TObject; Params: TStrings);
private
{ Private declarations }
FValue,FV:String;
Members : array[1..50] of TStrings;
public
{ Public declarations }
end;

function PageProducerPage1: TPageProducerPage1;

implementation

{$R *.dfm} {*.html}

uses WebReq, WebCntxt, WebFact, Variants;

function PageProducerPage1: TPageProducerPage1;
begin
Result := TPageProducerPage1(WebContext.FindModuleClass(TPageProducerPage1));
end;

procedure TPageProducerPage1.AdapterField1GetValue(Sender: TObject;
var Value: Variant);
var
F: File of TStrings;
i:integer;
StringList:Tstrings;
begin
//Value:=FValue;
AssignFile(F, "Unit12.html");
Rewrite(F);
try
StringList := TStringList.Create;
StringList.Text:="<html>"+FV+"</html>";
StringList.SaveToFile("Unit12.html");
//with StringList do begin
// Add("<html>"+FV+"</html>");
//end;
// Seek(F, 1);
//Write (F,StringList);
//for i:= 1 to Length(FValue1) do
// Write (F{,FValue1});
//except
{with Application do
begin
NormalizeTopMosts;
MessageBox("This should be on top.", "Look", MB_OK);
RestoreTopMosts;
end; }
//end;
finally
CloseFile(F);
StringList.free;
end;
end;

procedure TPageProducerPage1.WebAppPageModuleCreate(Sender: TObject);
begin
FValue:="

hooky-mars (2002-04-14 17:11:00) [17]
Сделано на WebSnap

hooky-mars (2002-04-14 17:10:00) [18]

> MBo

stringlist.savetofile вообще ничего не пишет, почему-то

Anatoly Podgoretsky (2002-04-14 17:05:00) [19]
Ешь что дают :-)
Тебе бы не мешад указать условия, что бы не нужно было повторятьсь подходит или нет.

MBo (2002-04-14 17:04:00) [20]
ага, посмотрел в твой код. ты смешиваешь два метода-
либо writeln используй, либо stringlist.savetofile.
файл из tstrings, т.е. объектов - глупость

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »