Головна сторінка
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.8 MB
Час: 0.021 c
3-21917
Termik
2001-12-04 11:43
2002.01.08
Звернення до таблиці по імені, записні в змінної


1-22067
DNT
2001-12-15 16:20
2002.01.08
Dialog & dll


4-22483
Stropal
2001-11-03 10:57
2002.01.08
параметри фукнции


1-22251
мрійник
2001-12-17 14:17
2002.01.08
Підкажіть начсет TLIST


3-21957
KMM
2001-11-29 15:31
2002.01.08
У процесі роботи програми доводиться багато разів створювати і видаляти таблицю ...





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