Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Запис в файл. Знайти схожі гілки


Socol   (2001-12-15 17:14) [0]

Здраствуйте уважемие Гоподь Програмісти!
Проблема я записую інформацію в файл там полючается якийсь гон.
procedure TForm1.Button1Click (Sender: TObject);
type t = record
Name: string [20];
Number: integer;
end;
vAR F: file of t;
A: t;
починати
AssignFile (F, "q.txt");
assignFile (F, "c: \ q.txt");
rewrite (F);
write (F, A);
end;

procedure TForm1.Button2Click (Sender: TObject);
var A: string;
починати
A: = label1.caption
end;

+++ Як завантажити анемаціонний малюнок * .gif +++
Дякую всім хто відповів!



Art   (2001-12-15 17:28) [1]

Прибери перший рядок після begin і використовуй краще writeln далі, чому у тебе так само А при натисканні на кнопку 1 ???



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.022 c
14-22322
дрімучий
2001-11-03 14:10
2002.01.08
Хто візьметься зробити? Стати в нагоді всім.


14-22412
fishka
2001-11-12 14:50
2002.01.08
Компоненти і їх розташування для зручності оператора (Delphi 3)


3-21950
Відлюдник
2001-12-05 11:38
2002.01.08
Неявно стартуемие транзакції


1-22002
BFG
2001-12-16 16:24
2002.01.08
Графіки


3-21897
МаксБ
2001-11-27 14:33
2002.01.08
СУБД Cache





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська