Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Օգնություն երկու հարցերին. Գտնել նմանատիպ մասնաճյուղեր


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]

Տեսակը Rec = գրառումը
a,b,c:String;
վերջ;
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

Տեսակը Rec = գրառումը
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];

Up









Հիշողություն `0.57 ՄԲ
Ժամանակը `0.043 գ
3-21968
բալանսը
2001-12-05 11:20
2002.01.08
QuantumGrid- ը


14-22366
Վլադոսը
2001-11-05 10:41
2002.01.08
Պլոտտինգ


1-22079
kserg@ukr.net
2001-12-19 13:11
2002.01.08
Ինչպես ճիշտորեն միացնել կոճակը ToolBara- ով, MainMenu- ում ընտրացանկով:


1-22021
Սոկոլ
2001-12-18 08:54
2002.01.08
Ներբեռնեք ֆայլը:


1-22008
կոկորդիլոս
2001-12-17 11:46
2002.01.08
ՀԱՐՑ:





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский