Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Вниз

Помогите по двум вопросам!   Найти похожие ветки 

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

Здраствуйте уважемые гопода програмисты!
Помогите записать переменые в файл и загрузить их.
Есть 3 лэйбола
И 3 переменых A B C
Задача записать переменные в фай и загрузить их при необходимости.
Надо присвоить надписи лэйболов переменым примерно так
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;
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]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.76 MB
Время: 3.017 c
1-22022
victor
2001-12-18 08:05
2002.01.08
Нужен Label для отображения формул


1-22164
WarChilD
2001-12-19 21:46
2002.01.08
ListBox --> Row Select


1-22157
Flagman
2001-12-20 13:55
2002.01.08
Найти два возврата каретки подряд.


7-22446
Paradox
2001-09-25 19:12
2002.01.08
Не пропускайте!!!Ну, очень нужно.


6-22316
dmur
2001-09-24 20:58
2002.01.08
Перехват ошибок при соединении с помощью сокетов





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 Spanish 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
Английский Французский Немецкий Итальянский Португальский Русский Испанский