Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

peremenniy a   Найти похожие ветки 

 
roma ©   (2004-09-21 15:24) [0]

VSEM PRIVET.

U menya est fayl *.txt v nem est tolko odin simvol eto- 1. V proqramme est  umenya peremenniy a : integer;

Zadaca tokoe mne nado pri najatii Button1 vizvat *.txt fayl prisvaibat evo na a dabavit 1 i rezultat zapisat obratno na *.txt fayl.

procedure TForm1.Button1Click(Sender: TObject);
 var
 a: integer;
 b: string;

begin

FileOpen("c:\tex.tex", fmOpenWrite); // esli ne osibayus
  a:=1;
  b:= //zdes nado soderjanie *.txt priisvaivat kak ne znayu;
  a:=a+StrToInt(b);
  b:=IntToStr(a);

//a zdes nado rezultat b zapisat na *.txt fayl kak ne znayu;

end;

ZARANIE BLAQADARYU


 
Amoeba ©   (2004-09-21 15:35) [1]

Файл надо открывать и читать как текстовый (нафиг FileOpen!) используя WriteLn в строковую или Integer переменную (это как удобнее).

F1



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.026 c
14-1095848482
Григорьев Антон
2004-09-22 14:21
2004.10.10
Забавная картинка из корейского метро


8-1089317182
naum
2004-07-09 00:06
2004.10.10
Неаффинные преобразования растра (Thin-Plane Spline)


3-1095266849
dumitru
2004-09-15 20:47
2004.10.10
Range...


4-1093936297
Arnold
2004-08-31 11:11
2004.10.10
как по изветсному PID процесса получить список его потоков с возм


8-1089868358
Ale}{(is)
2004-07-15 09:12
2004.10.10
Median-cut и Octree