Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

Help with two questions! Find similar branches


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

Hello dear gopoda programmers!
Помогите записать переменые в файл и загрузить их.
Есть 3 лэйбола
И 3 переменых A B C
Задача записать переменные в фай и загрузить их при необходимости.
Надо присвоить надписи лэйболов переменым примерно так
Label1.caption:=A;
Label2.caption:=B;
Label3.caption:=C;
и затем при нажатии на коммандбутон переменые сохранялись в peremen.sav.
И анологично загружались.
+++ How to download anemia image * .gif +++
I thank everyone who answered!



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;
End;
Var ff:File of Rec;
n:Rec;

.

Read(ff,n);

Label1.Caption:=n.a;
Label1.Caption:=n.b;
Label1.Caption:=n.c;

.

Write (ff, n);


Всё просто!!!



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

2Song

Type Rec = Record
a, b, c: String;
End;
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]

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



Pages: 1 whole branch

Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top















Memory: 0.83 MB
Time: 0.037 c
1-22096
Mikhalyov Dmitry
2001-12-19 15:55
2002.01.08
About TObject in events


1-22112
greenrul
2001-12-15 13:55
2002.01.08
Prompt component Button


4-22459
Yus
2001-11-01 03:13
2002.01.08
Masters, help ..


1-22198
T2
2001-12-16 07:23
2002.01.08
One processing for a heap of buttons


3-21950
Hermit
2001-12-05 11:38
2002.01.08
Implicitly Started Transactions





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Español swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish