Главная страница
    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.45 MB
Время: 0.007 c
14-22326
McSimm
2001-11-04 11:35
2002.01.08
Кто-то хотел размять (себе) мозги? Какие будут варианты алгоритма?


1-22258
mashinist
2001-12-16 23:16
2002.01.08
Уравнение третьей степени.


1-22047
handra
2001-12-17 13:12
2002.01.08
Создание справки


1-22159
Phisio
2001-12-19 22:56
2002.01.08
Как создавать новую структуру


3-21942
Rev
2001-12-03 12:19
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский