Delphi - REVISEN ESTA CONSULTA

QUERY1.SQL.ADD('UPDATE MARCA SET MAR_DESCRIPCION='+ EDIT1.TEXT);
QUERY1.OPEN;
ME DA UN ERROR CUANDO LA EJECUTO POR FAVOR ALGUIEN ME PUEDE CORREGIR

El metodo Open solo se utiliza en consultas que devuelven registros como un SELECT, para el UPDATE cierrala primero con Close y usa el metodo ExecSQL, aunque al parecer tambien en la asignacion del nuevo valor la estas regando, si el atributo es de tipo char entonces debes poner mas apostrofes quedaria mas o menos asi...

instruccionSQL = 'UPDATE MARCA SET MAR_DESCRIPCION=''' + Edit1.Text + '''';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(instruccionSQL);
Query1.ExecSQL;

instruccionSQL debe ser de tipo string es mejor asi por que asi puedes debuggear mejor, primero son tres apostrofes y despues 4. Creo que ademas te falta por ai un WHERE...

Salu2

Tambien puedes usar la funcion QutoStr() para que agrege los apostrofes y no se complique la lectura del sql.

O puedes usar la funcion format, y crear una constante con la cadena. P ej:

Const_Sql='UPDATE MARCA SET MAR_DESCRIPCION=%S';

y luego

Query1.SQL.Add(Format(Const_Sql,[QuoteStr(Edit1.Text])

Sin embargo esto es un mecanismo MUY problematico y que genera muchos errores. Una solucion mejor es crear un pseudo-generador de sql (o buscar uno por ahi), al cual le pases la informacion y te retorne la cadena SQL bien hecha (lo que ayudaria a evitar errores de sintaxis)

Por ejemplo:

TGeneradorSql
Function GetSelect(Tabla:String;Campos:String;Order:String;Filtro:String)

Como para que te hagas a la idea... Eventualmente seria bueno hacer algo como:

oUpdateSql=TUpdateSql.Create;

oUpdateSql.Tabla='MARCA'
oUpDateSql.Add('MAR_DESCRIPTION',Edit1.Text,adFldChar);
oUpdateSql.Filtros.Add('IdMarca','=','1')

Query1.SQL.Add(oUpdateSql.GetSql())

Se ve como mas codigo pero realmente es una manera muy flexible y eficiente de generar cadenas SQL bien hechas y con minimos errores...Imaginate por ejemplo pasar un DataSet y que las clase solita arme los distintos sql :)