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

Down

ՀԱՐՑ: Գտնել նմանատիպ մասնաճյուղեր


Alligator   (2001-12-17 11:46) [0]

գործառույթ SelectChars (ներ ՝ ShortString; a: Integer; b: Integer). ShortString;
էր
i: Integer;
ts: ShortString;
tp: PChar;
սկսել
ts: = "";
StrPCopy (tp, s);
համար i: = a to a + b do ts: = ts + tp [i];
Արդյունք ՝ = ts;
վերջը.

Այս գործառույթը չի կարող մարսել շատ երկար նախադասությունները. Այն (գործառույթ) անմիջապես երկար նախադասությունների տեսանկյունից սպանում է իմ ծրագիրը
Ինչպես կարող եմ ուղղել այս էջը:
ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ Քեզ շուտով



gek   (2001-12-17 11:51) [1]

Դե, ինչու օգտագործել ShortString- ը
օգտագործել լարային



Alligator   (2001-12-17 12:26) [2]

String- ի միջոցով ծրագիրը նույնպես մահանում է, ես ակնհայտորեն ոչինչ չեմ փորձում, չի ստացվում, հնարավոր է ՝ կա մեկ այլ գործառույթ կամ տարբերակ ՝ ինչպես ջնջել տեքստից ինչն է անհրաժեշտ ???



McSimm   (2001-12-17 12:38) [3]

1: Հիշողությունը PChar- ի համար չի հատկացվում:
2: Ինչու է PChar- ն ընդհանրապես այստեղ:
3: Ինչու է անհրաժեշտ այս հատկությունը: Եթե ​​սա ենթահող է պատճենում, ապա
գործառույթը Copy (S; Index, Count: Integer): string;



Alligator   (2001-12-17 12:57) [4]

Ահ ... դու ինձ սխալ հասկացար:



gek   (2001-12-17 13:01) [5]

Եվ ինչո՞ւ նրանք չհասկացան: Ինչու՞ է այս ամբողջ բանը անհրաժեշտ, բացատրիր:



Alligator   (2001-12-17 13:34) [6]

Եկեք ասենք, որ ես մի երկար տեքստի կտոր ունեմ, և հարկավոր է ստուգել կամ մտցնել միայն առաջին երկու տառերը:
-memo1.lines.add (SelectChars («երկար տեքստի կտոր», 0,1))
այսինքն, ինչպես հասկանում եք, հուշագրում պետք է գրվեն ընդամենը երկու տառեր `0- ից 1, և այս գործառույթը լավ է գործում, բայց ոչ երկար տեքստով, սահմանն ինչ-որ տեղ 255 նիշ է, բայց այն, ինչը ինձ սահմանափակում է, nepoyma է:



Digitman   (2001-12-17 13:37) [7]

memo1.lines.add (Պատճենել («երկար տեքստի մի կտոր», 1,1)) - ուրեմն ի՞նչն է քեզ դուր չի գալիս: անում է այն, ինչ ձեզ հարկավոր է, և առանց որևէ լրացուցիչ «հնարքների»



Mbo   (2001-12-17 13:41) [8]


նրանք արդեն ասացին Պատճենելու գործառույթի մասին:
իսկ ձեր մեջ, բացառությամբ նշված սխալների 5- ի, նկարագրված է վերադարձի կարճուղի
և արդյունք - PChar



Alligator   (2001-12-17 18:38) [9]

ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ ՇՆՈՐՀԱԿԱԼՈՒՄ ԵՆՔ ՕԳՆԵԼ !!! Հիմա ամեն ինչ աշխատում է այնպես, ինչպես պետք է:



Էջեր: 1 ամբողջ ճյուղը

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

Up





Հիշողություն `0.57 ՄԲ
Ժամանակը `0.023 գ
1-22200
Սերգեյ_Բ
2001-12-15 09:57
2002.01.08
Intxnumx եւ ֆայլի չափը


4-22484
Տրոյան
2001-11-03 19:56
2002.01.08
Ինչպես կարող եմ իմ կուրսորը բեռնել Delphi- ում:


6-22269
SERGX- ը
2001-10-05 16:31
2002.01.08
Խնդրում ենք տալ աղբյուրը:


14-22330
Ալեքսեյ Թ.
2001-11-02 13:25
2002.01.08
Օգնեք ինձ!


3-21984
Պարոն Էնդրյու
2001-12-05 20:39
2002.01.08
Տվյալների թարմացումը





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