Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC800 · Thread

PROBLEM I FUNKTION

7 posts in thread

Andrus Kangro <6660> · Text 4514 · w8 · inlagg

1986-08-21 14:36

Ärende: PROBLEM I FUNKTION

I följande funktion får jag 'Ej tilldelningsbar funktion i rad 10290'. Kan någon säga varför och hur jag enklast ska åtgärda. 10200 DEF FNInläs¤(R,K,V¤) LOCAL R,K,A,V¤=10 10210 A=LEN(V¤) : ; CUR(R,K) V¤ CUR(R,K); 10220 FOR I=1 TO A 10230 GET Q¤ : IF Q¤=CHR¤(13) 10290 10240 IF ASCII(Q¤)=9 AND I<A THEN ; CUR(R,K+I); : GOTO 10280 10250 IF ASCII(Q¤)=8 AND I>1 THEN ; CUR(R,K+I-2); : I=I-2 : GOTO 10280 10260 IF (ASCII(Q¤)>47 AND ASCII(Q¤)<58) OR Q¤='.' OR Q¤='-' OR Q¤=' ' THEN ; CUR(R,K+I-1) Q¤; ELSE 10230 10270 MID¤(V¤,I,1)=Q¤ 10280 NEXT I 10290 IF LEN(V¤)<A THEN V¤=SPACE¤(A-LEN(V¤))+V¤ 10380 RETURN V¤ 10390 FNEND Tacksam för snabbt svar
- Bo Kullmar SYSOP <1789> · Text 4518 · w8 · kommentar
  
  1986-08-21 17:30
  
  Ärende: PROBLEM I FUNKTION
  
  Du får inte tilldela strängvariabler något värde i funktionen om dessa är inparametrar. Skriv i stället för V¤ In¤ i rad 10200 och sedan skriver du en ny rad 10205 V¤=In¤. Du bör också deklarera V¤ som LOCAL V¤=255, där du måste ange en maxlängd. Jag har skrivit en liten artikel i ABC-Bladet för en tid sedan om fler- radiga funktioner. Det var nog någon gång 1985.
  - Andrus Kangro <6660> · Text 4531 · w8 · kommentar
    
    1986-08-22 11:34
    
    Ärende: PROBLEM I FUNKTION
    
    Hur kommer det sig då att jag kan ge inparametern värde i uttrycket MID¤(V¤,I,1)=Q¤ ? Det här problemet är lite rörigt. Konstigt att jag inte har stött på det under alla dessa år som jag har hållit på.
    - Andrus Kangro <6660> · Text 4532 · w8 · kommentar
      
      1986-08-22 11:36
      
      Ärende: PROBLEM I FUNKTION
      
      Det har visat sig att jag kan köra lika bra utan den felande raden i min applikation.
    - Karl Lindström <837> · Text 4537 · w8 · kommentar
      
      1986-08-22 19:59
      
      Ärende: PROBLEM I FUNKTION
      
      Då så ändrar du inte längden, utan bara innehållet.
    - Kristoffer Eriksson <5357> · Text 4550 · w8 · kommentar
      
      1986-08-24 05:23
      
      Ärende: PROBLEM I FUNKTION
      
      Det är väl närmast att betrakta som ett litet förbiseende, om än praktiskt i vissa lägen, av herrarna på DIAB. VAROOT är inte heller tillåtet på lokala strängvariabler. Det är lite förvånande att du inte stött på det förr, om du hållit på med Basicen länge. Du kan prova detta lilla program, och se vad man kan råka ut för om man utnyttjar kryphålet: 10 Z=FNA("Pascal är bra") 20 DEF FNA(B¤) 30 MID¤(B¤,1,7)="COBOL " 40 RETURN 0 50 FNEND Lista programmet efter att ha kört det, och se vad som hänt!
  - Karl Lindström <837> · Text 4535 · w8 · kommentar
    
    1986-08-22 19:55
    
    Ärende: PROBLEM I FUNKTION
    
    Desutom som blir de variabler du anger mellan ( och ) automatisk lokala behöver ej anges efter LOCAL. De dimensioneras automatiskt till den längd de har när du går in i funktionen och får inte ändras.