Rakstīt ziņojumu 
 
Pavediena vērtējums:
  • 0 balsis - 0 vidējais
  • 1
  • 2
  • 3
  • 4
  • 5
Pascal meklēšana datnē
Autors Ziņa
Sun Atslēdzies
Junior Member
**

Ziņojumi: 10
Pievienojās: May 2010
Reputācija: 0
Ziņojums: #1
Pascal meklēšana datnē
Kā saprotu, tad meklēšana citā datnē tiek veikta ar STRING palīdzību -

Kods:
PROCEDURE MEKLE (P,F:STRING);
VAR K,I,S:INTEGER;
BEGIN
     FOR K:=0 TO LENGTH(F) - LENGTH(P) DO
         FOR I:=1 TO LENGTH(P) DO BEGIN
                                 IF P[I]<>F[K+I] THEN BREAK;
                                 IF I=LENGTH(P) THEN BEGIN
                                                     S:=K+1;
                                 EXIT
                                 END
                                 END;
         S:=0;

Nolasīju no datnes informāciju un ierakstīju masīvā. Bet tagad nesaprotu, kā lai šo masīvu pārvērš vienotā simbolu virknē...vai tas vispār ir iespējams?
05.12.2010 14:59
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
Glodīte Atslēdzies
Member
***

Ziņojumi: 100
Pievienojās: Aug 2008
Reputācija: 2
Ziņojums: #2
RE: Pascal meklēšana datnē
Pirmais, kas iešāvās prātā (gan jau var ne tik gari), bet pārvērt katru masīva elementu par stringu ar str f-ju un tad visu saliec vienā mainīgā ar concat! Smile
05.12.2010 16:05
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
dambō bet rōzā Atslēdzies
Man ir tituls.
****

Ziņojumi: 304
Pievienojās: May 2010
Reputācija: 0
Ziņojums: #3
RE: Pascal meklēšana datnē
Īsti nevar saprast, ko tava bezjēdzīgā funkcija dara. Laughing
05.12.2010 17:37
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
Sun Atslēdzies
Junior Member
**

Ziņojumi: 10
Pievienojās: May 2010
Reputācija: 0
Ziņojums: #4
RE: Pascal meklēšana datnē
(05.12.2010 17:37 )dambō bet rōzā rakstīja:  Īsti nevar saprast, ko tava bezjēdzīgā funkcija dara. Laughing

ņem vienu string un salīdzina ar otru - nosaka, vai pirmajā virknē ietipst otrā. Nerakstīju, bet paņēmu no gatavajiem Vēža materiāliem. Tikai nevaru izdomāt, kā masīvu pārvērst kā vienotu simbolu virkni.
05.12.2010 17:47
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
dambō bet rōzā Atslēdzies
Man ir tituls.
****

Ziņojumi: 304
Pievienojās: May 2010
Reputācija: 0
Ziņojums: #5
RE: Pascal meklēšana datnē
nu tavā funkcijā nav masīvu. kam tu viņu mums te iekopēji?

Kods:
Var z : strings; a : array;
z := "";
For i := 1 to garums do
  z := z+a[i];
05.12.2010 20:06
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
Rakstīt ziņojumu 


Lēciens uz forumu:



Kontaktifizmati.lvAtgriezties uz augšuAtgriezties pie saturaArhīva skatsRSS sindikācija