Como paso el valor?

[jam888]

Desde ya muchas gracias por toda la ayuda brindada en estos ultimos tiempos, mi problema ahora es el sguiente, como hago para pasar el contenido de un tedit a un procedimiento,yo hago lo siguiente, tengo unprocedimiento que recibe una cadena de texto(string) y realiza determinadas tareas, pero no lo puedo hacer funcionar por que me da error

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
// quiero que cuando se presione una tecla se llame al procedimiento
// y pasar como parametro lo de la cajita de texto
Unsolopunto(Edit8.Text);
y en el procedimiento modificar el valor de la cajita de texto
end;

[eduarcol]

Y el error es...... :confused:

[Pablo Carlos]

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then // (presionando enter)
begin
Query1.Close;
Query1.Open;
end;
end;

procedure TdmQuerys.QueryBeforeOpen(DataSet: TDataSet); // o el procedimiento que sea
begin
Query1.ParamByName('BuscarEsto').AsString =
Edit8.Text;
//luego que pasas el parametro
Edit8.Text := ' ' // Modificas el valor
end;

No entiendo mucho lo que necesitas, espero que esto te ayude.
Saludos

[basti]

Yo utilizaría una función en vez de un procedimiento:


procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
Edit8.Text := Unsolopunto(Edit8.Text);
end;

function Unsolopunto(s : string) : string;
begin
// aquí cambias lo que quieras en s
Unsolopunto := s;
end;



Creo que era esto lo que preguntabas, si no lo he entendido mal.

un saludo

[jam888]

Es exactamente lo que nesecitaba Muchas Gracias y un abrazo