peremenniy a [D6, WinXP]
roma © (2004-09-21 15:24:00)
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:00) [1]
Файл надо открывать и читать как текстовый (нафиг FileOpen!)
используя WriteLn в строковую или Integer переменную (это как
удобнее).
F1
Наверх 
ЧАТ |
Орешник |
|
