Delphi - CORREJIR ERROR

   
Vista:

CORREJIR ERROR

Publicado por Maria Rosa (50 intervenciones) el 03/11/2009 18:44:41
if (Edit1 <> 'AREA') or (Edit2 <> 'FOLIO') or (Edit3 <> 'TITULO') or (Edit4 <> 'AUTOR') or (Edit5 <> 'EDITORIAL') or (Edit6 <> 'EDICION') or (Edit7 <> 'ISBN') or (Edit8 <> 'PAIS') or (Edit9 <> 'TEMA_1') or (Edit10 <> 'TEMA_2')then
begin
query1.SQL.clear;
query1.SQL.text:= 'INSERT INTO BLIBROS (AREA,FOLIO,TITULO,AUTOR,EDITORIAL,EDICION,ISBN,PAIS,TEMA_1,TEMA_2) VALUES('+ QuotedStr(Edit1.Text) + ',' + QuotedStr(Edit2.Text) + ','+ QuotedStr(Edit3.Text) + ',' + QuotedStr(Edit4.Text) + ',' + QuotedStr(Edit5.Text) + ',' + QuotedStr(Edit6.Text) + ',' + QuotedStr(Edit7.Text) +', ' + QuotedStr(Edit8.Text) +' , ' + QuotedStr(Edit9.Text) + ','+ QuotedStr(Edit10.Text) + ')';
query1.ExecSQL;
close;
end
else
SHOWMESSAGE('Ya estàn duplicados');

NO SE por que dice incompatibles tedit con string alguien me podria ayudar a correjir mi if gracias o decirme la sentencia correcctamente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Cargar un bitmap
- GL Lander
- Creación de botones

RE:CORREJIR ERROR

Publicado por E.T. (1105 intervenciones) el 03/11/2009 19:34:26
Te falta decirle que vas a comparar del edit, en efecto un edit es un objeto, un string es un tipo de dato (por completo incompatibles), la propiedad Text del edit es tipo string, justo lo que necesitas comparar

(Edit1.Text <> 'AREA')
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

CorreGir error

Publicado por Nombre (1 intervención) el 03/11/2009 19:53:16
CorreGido.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar