Quando inserisci codice nel forum lo devi racchiudere tra [CODE*] il tuo codice e [/CODE*] senza asterischi
codice:
program quello_che_vuoi;
uses crt;
const n=10;
type generico = record
appoggio:string[30];
end;
classe=array[1..n] of generico;
var i:integer;
conf:text; {file di testo}
c:classe;
carattere:char;
stringa:string;
trovato:boolean;
Begin
clrscr;
Write('quale carattere vuoi cercare nel file? ');
readln(carattere);
{$I-}
ASSIGN(conf,'c:\nome_file.txt');{gli puoi mettere qualsiasi estensione!}
RESET (conf);
i:=1;
while (not(eof(conf))) do
begin
ReadLn(conf,c[i].appoggio);
i:=i+1;
end;
CLOSE (conf);
{$I+}
{per vedere se la riga "i" del file inizia con una lettera che vuoi tu
basta mettere riga per riga in una stringa e verificare}
trovato:=false;
for i:=1 to 100 do
Begin
stringa:=c[i].appoggio;
if (stringa[1]=carattere) AND (stringa[1]='M') then
begin
write('trovato "',carattere,'" alla riga ',i);
trovato:=true;
end;
end;
if trovato=false then write('non trovato');
readln;
End.