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

Вниз

Допоможіть з двох питань! Знайти схожі гілки


Socol   (2001-12-15 10:45) [0]

Здраствуйте уважемие Гоподь Програмісти!
Допоможіть записати змінні в файл і завантажити їх.
Є 3 лейбола
І 3 мінливих ABC
Завдання записати змінні в фай і завантажити їх при необхідності.
Треба присвоїти написи лейболов Мінлива приблизно так
Label1.caption: = A;
Label2.caption: = B;
Label3.caption: = C;
і потім при натисканні на коммандбутон змінні зберігалися в peremen.sav.
І анологично завантажувалися.
+++ Як завантажити анемаціонний малюнок * .gif +++
Дякую всім хто відповів!



Anatoly Podgoretsky   (2001-12-15 11:43) [1]

Readln (f, a, b, c);
Writeln (f, a, b, c);



Song   (2001-12-15 22:22) [2]

Type Rec = Record
a, b, c: String;
Кінець;
Var ff: File of Rec;
n: Rec;

...

Read (ff, n);

Label1.Caption: = na;
Label1.Caption: = nb;
Label1.Caption: = nc;

...

Write (ff, n);


Все просто!!!



Вадим   (2001-12-15 23:05) [3]

2Song

Type Rec = Record
a, b, c: String;
Кінець;
Var ff: File of Rec;
n: Rec;

Це працювати не буде, треба використовувати ShortString;



Song   (2001-12-16 22:28) [4]

Так, просто забув, але я роблю так: a, b, c: String [100];
так буде працювати



KilkennyCat   (2001-12-17 03:48) [5]

Ніяк не працюватиме :)
ви файл забули відкрити :))



Builder   (2001-12-17 03:53) [6]

А може writeComponent? :)



Song   (2001-12-19 23:24) [7]

Ну, це ж ясно як білий день, що його потрібно відкрити, скинути на читання, а потім і закрити - просто не став писати зайву інфу, це і так всі знають! (Подивіться на суть питання)



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

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

наверх









Пам'ять: 0.57 MB
Час: 0.024 c
3-21900
vano
2001-12-07 11:13
2002.01.08
TString і String


7-22420
Cntcyz.cm crfpfnm cdjt bvz
2001-09-21 21:12
2002.01.08
Народ підкажіть як мені бути?


3-21990
SkyR
2001-12-04 03:58
2002.01.08
Проблема з LookUp - полями


1-22025
- = DeD = -
2001-12-18 11:20
2002.01.08
установка ActiveX


6-22279
Денис
2001-07-28 22:08
2002.01.08
NMSMTP через проксі





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