[PASCAL] Leggere stringa carattere per carattere

[cso]

Ciao a tutti.

La mia non è una richiesta di aiuto ma di ottimizzazione di un algoritmo per leggere una stringa carattere per carattere.

USES Crt;
VAR i:INTEGER;
    command:STRING;
    s:CHAR;
BEGIN
clrscr;
Write('Inserisci una stringa: ');
FOR i:=1 TO 32 DO
           Begin
             s:=ReadKey;
             IF (s=#13) or (s=#27) THEN i:=32; {se è invio o esc esce dal ciclo}
             IF (s<>#7) AND (s<>#8) AND (s<>#10) THEN
                                     begin
                                       Write(s);
                                       command:=command+s;
                                     end;

             IF (s=#8) AND (i>0) THEN {se è il backspace...}
                              begin
                                Delete(command,i-1,1);
                                i:=i-2;
                                IF i>=0 THEN Write(Chr(8),' ',Chr(8));
                              end;
           End;
END.

Il programma ha due Bug

1- Se si inseriscono tanti caratteri a caso velocemente non si riesce più a cancellare interamente quello che si ha scritto.

2- Se si preme Alt+7 e Alt+8 continuamente il cursore torna indietro mangiucchiando la parola del writeln: Inserisci una stringa:

3- Se trovate altri bug ve ne sarò grato

In attesa di risposte Grazie

[pak0]

IF (s=#8) AND (i>0) THEN {se è il backspace...}
begin
Delete(command,i-1,1);
i:=i-2;
IF i>=0 THEN Write(Chr(8),' ',Chr(8));
end;

A che ti serve ? ? ?

Per la prova non ti posso risp adesso, perchè non posso. Ti dirò stasera.

[cso]

Se hai scritto qualcosa (quindi i>0) e l'ultimo tasto premuto è il backspace allora:

Delete(command,i-1,1); {cancella il carattere backspace (anche lui ha un simbolo come tutti gli altri caratteri)}
i:=i-2;                {essendoci un carattere in meno anche I deve valere meno}
IF i>=0 THEN Write(Chr(8),' ',Chr(8)); {con le operzioni di prima nel video si vede ancora il carattere di backspace quindi lo cancella dallo schermo}

Aiuto

[pak0]

Per correggere la stringa, dovresti usare le "array of char".


if carattere='quello che vuoi' then
i:=i-1; {i è il numero dell'array, quindi torna al carattere priecedente}

Facile.

[cso]

Originariamente inviato da cso
...
Il programma ha due Bug

1- Se si inseriscono tanti caratteri a caso velocemente non si riesce più a cancellare interamente quello che si ha scritto.

2- Se si preme Alt+7 e Alt+8 continuamente il cursore torna indietro mangiucchiando la parola del writeln: Inserisci una stringa:

3- Se trovate altri bug ve ne sarò grato

In attesa di risposte Grazie

Ma il problema non è questo

[cso]

Up

[pak0]

wè,

io non ho riscontrato alcun bug.

[cso]

Magari dipende anche dal compilatore...
Io uso Turbo Pascal 7.0!

Non sono un novellino perchè ho studiato pascal l'anno scorso, assembly per due anni e sto facendo Java che non mi piace proprio.

Sto rispolverando un po' di pascal per non dimenticare ma qui apparte te non mi aiuta nessuno!

Lo so che nessuno è obbligato a rispondermi ma caspita, vedo gente che aiuta gli altri facendogli un programma intero di 200 righe e io che chiedo una ca**ata non merito l'attenzione di nessuno!

[pak0]

anche io usavo turbo pascal 7.0, ma adesso uso DevPascal (molto meglio).

PS: nessuno se ne fo**e di te. Kissà perchè ? ? ? :master: