codice:
procedure TForm1.Button2Click(Sender: TObject);
var
cancella:string;
i:integer;
begin
cancella:=edit5.text;
for i:=0 to memo1.lines.count-1 do
if copy(memo1.lines.string[i],1,length(cancella)=cancella then
begin
memo1.delete(i);
exit;
end;
end;
Ciao, con questo codice eseguo un ciclo che scorre tutte le righe della tmemo. Per ogni riga vedo se la stringa che si trova nella tmemo, estrapolata grazie al comando copy, corrisponde al valore assegnato a "cancella".
Nel caso in cui la condizione dell'if risulti essere esatta elimino la riga della tmemo ed esco dal ciclo. In caso contrario passo alla riga successiva.
Ciao!