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

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