Текстовый Фаил

← →
hooky-mars (2002-04-14 16:50) [0]

Saluer!
Подскажите люди, как в текстовый фаил что-то написать? И чтобы можно было потом в блакноте прочесть! Очень надо!
Зарние благодарен.

← →
hooky-mars (2002-04-14 16:53) [1]

Пишу так:
var
F: File of TStrings;
i:integer;
StringList:Tstrings;
begin
AssignFile(F, "Unit12.html");
Rewrite(F);
try
StringList := TStringList.Create;
StringList.Text:="<html>"+FV+"</html>";
Seek(F, 1);
Write (F,StringList);
finally
CloseFile(F);
StringList.free;
end;
А получается что-то такое њЉЕ

← →
MBo (2002-04-14 16:53) [2]

способов уйма

Assignfile
rewrite
writeln
closefile

StringList.Savetofile
и т.д.

← →
Anatoly Podgoretsky (2002-04-14 16:54) [3]

Memo.Lines.SaveToFile

← →
hooky-mars (2002-04-14 16:55) [4]

> Anatoly Podgoretsky

В моём случаеё врядли возможен данный способ!

← →
MBo (2002-04-14 16:55) [5]

а что у тебя в FV ? :)

← →
hooky-mars (2002-04-14 16:56) [6]

> MBo

FV:String;

← →
MBo (2002-04-14 16:57) [7]

а строке этой какая кодировка?

← →
hooky-mars (2002-04-14 16:57) [8]

> MBo

Я какрас испльзую rewrite
writeln

← →
hooky-mars (2002-04-14 16:59) [9]

> MBo

Какой?

← →
MBo (2002-04-14 17:00) [10]

тебе знакомы слова Win Cp1251, Koi-8 ?

← →
hooky-mars (2002-04-14 17:01) [11]

> MBo

В моём случае это может быть технологически трудно, т.к. я это делаю в PageProducer`е.

← →
hooky-mars (2002-04-14 17:02) [12]

> MBo
Да

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

Только Delphi 6 поставил, и сразу в эту муть полез. Ну что есть соображенния

← →
MBo (2002-04-14 17:04) [14]

ага, посмотрел в твой код. ты смешиваешь два метода-
либо writeln используй, либо stringlist.savetofile.
файл из tstrings, т.е. объектов - глупость

← →
Anatoly Podgoretsky (2002-04-14 17:05) [15]

Ешь что дают :-)
Тебе бы не мешад указать условия, что бы не нужно было повторятьсь подходит или нет.

← →
hooky-mars (2002-04-14 17:10) [16]

> MBo

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

← →
hooky-mars (2002-04-14 17:11) [17]

> 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) [18]

Сделано на WebSnap

← →
hooky-mars (2002-04-14 17:14) [19]

На вашем же сайте начитался

← →
MBo (2002-04-14 17:14) [20]

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

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

← →
hooky-mars (2002-04-14 17:17) [21]

> MBo

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

← →
hooky-mars (2002-04-14 17:19) [22]

> MBo

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

← →
MBo (2002-04-14 17:19) [23]

сначала читай, потом
StringList.Add

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

← →
MBo (2002-04-14 17:21) [24]

в опр. строках
s:=stringkist[5] //6 строка
работаешь с s
stringlist[5]:=s;

← →
hooky-mars (2002-04-14 17:22) [25]

Пишу таким макаром ругается, да так что я тоакого еще невидел
StringList := TStringList.Create;
write(F,StringList);
StringList.Add("<html>"+FV+"</html>");
Rewrite(F,StringList);

← →
MBo (2002-04-14 17:24) [26]

← →
hooky-mars (2002-04-14 17:25) [27]

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

← →
hooky-mars (2002-04-14 17:25) [28]

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

← →
MBo (2002-04-14 17:26) [29]

выкинь F и все,что к нему относится

← →
hooky-mars (2002-04-14 17:28) [30]

StringList := TStringList.Create;
StringList.LoadFromFile("Unit12.html");
StringList.Add("<html>"+FV+"</html>");
StringList.SaveToFile("Unit12.html");
Вы про такое?

← →
MBo (2002-04-14 17:29) [31]

← →
hooky-mars (2002-04-14 17:29) [32]

Уже делает как наодо, тока в 2 раза болбше сторок бобавляет

← →
hooky-mars (2002-04-14 17:33) [33]

Всё сделал, заработало как надо просто в бругую процедуру засунул!
!!!Огромное Спасибо!!!!

Текстовый Фаил Найти похожие ветки