А как в Delphi работать со внешним текстовым файлом?

ms_nadin

Требуется создание текстового файла, занесение в него текстовой информации. Как это сделать на Delphi?

ms_nadin

Подскажите хотя бы команды для работы с файлами на Pascal. А может у кого книжка в электронном виде по Pascal есть?

stalker33rus10

пишу только команды, подробнее - см. хелп по ним, там экзампл должен быть.
assignfile (в паскале assign) - связать файл с указателем
rewrite, reset - открыть соответствующим образом (запись, чтение)
writeln, readln - писать, читать в файл
closefile - закрыть указатель

stalker33rus10

вот пример из хелпы

var 



  F: TextFile;

  S: string;

begin

  if OpenDialog1.Execute then            { Display Open dialog box }

  begin

    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }

    Reset(F);

    Readln(F, S);                        { Read first line of file }

    Edit1.Text := S;                     { Put string in a TEdit control }

    CloseFile(F);

  end;

end;

ms_nadin

О, спасибо большое! (+5

)

darina10

Это, если нужно прочитать из файла.
Для записи же можно, например, использовать такую процедуру:
procedure TFmMain.N1_SaveClick(Sender: TObject);//если нажата кнопка "сохранить"
var
f : TextFile;
x: integer;
y: string;
begin
x:=10;//присваиваем переменным какие-нибудь значения, хотя это лучше делать вне данной
y:='привет';//процедуры
with SaveDialog1 do begin
DefaultExt:='txt';
FilterIndex:=3;
if(SaveDialog1.Execute)
then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);//собственно создание файла !
WriteLn(f,x);//что-нибудь пишем в него, например, данные из переменной x
WriteLn(f,y);// или из y
CloseFile(f);
end;
end;
end;

yolki

Полезно бывает ещё классами пользоваться:



uses Classes;

var

  S:TStringList;

begin

 S:=TStringList.Create;

 S.LoadFromFile('a.txt');

 S.Add('bla-bla-bla');

 S.SaveToFile('b.txt');

 S.Free;

end.

TStringList на мой взгляд гораздо удобнее - хотя бы тем, что умеет сортировать, поддерживает "параметры" вида "name=values" (через S.Vales['name'] можно взять весь файл одной строкой (S.Text и ещё много чего..

Оставить комментарий