|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - JMAlonso
26
« en: Sábado 15 de Octubre de 2005, 18:49 »
lo que necesito es esto ,es decir escribir, leer etc. de un fichero, que viene en la ayuda de delphi pero tiene un error y no se como arreglarlo.
var
BackupName: string;
FileHandle: Integer;
StringLen: Integer;
X: Integer;
Y: Integer;
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
BackupName := ExtractFileName(SaveDialog1.FileName);
BackupName := ChangeFileExt(BackupName, '.BAK');
if not RenameFile(SaveDialog1.FileName, BackupName) then
raise Exception.Create('Unable to create backup file.');
end;
FileHandle := FileCreate(SaveDialog1.FileName);
{ Write out the number of rows and columns in the grid. }
FileWrite(FileHandle,
StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
FileWrite(FileHandle,
StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
for X := 0 to StringGrid1.ColCount - 1 do
begin
for Y := 0 to StringGrid1.RowCount - 1 do
begin
{ Write out the length of each string, followed by the string itself. }
StringLen := Length(StringGrid1.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle, StringGrid1.Cells[X,Y] ,Length(StringGrid1.Cells[X,Y]));
end;
end;
FileClose(FileHandle);
end;
el error esta en la linea en negrita, queriendo escribir en el fichero lo que contiene
la celda del grid y su longitud, pero da error.
Saludos.
Saludos.
27
« en: Viernes 14 de Octubre de 2005, 16:59 »
Lo que he hecho es que en tiempo de ejecucion, me cree una serie de menus y
botones , por ejemplo.
Pero lo que no puedo hacer en tiempo de ejecucion es ejecutar un metodo
segun que boton o menu haya sido.
Gracias.
28
« en: Viernes 14 de Octubre de 2005, 16:57 »
Supongo que de texto , ya que de Tipo o sin Tipo no se muy bien lo que es.
Gracias y saludos.
29
« en: Viernes 14 de Octubre de 2005, 00:44 »
Creo que es abusar un poco, pero si alguien tuviera un pequeño ejemplo
de como crear, leer y grabar en un fichero , estaria muy agradecido.
Buenas noches y saludos.
30
« en: Jueves 13 de Octubre de 2005, 23:10 »
Buenas noches.
Alguien sabe como crear un array de controles.
Por ejemplo , un array de botones, de tal forma que acceda a cada uno de
ellos por su indice.
Saludos.
31
« en: Jueves 13 de Octubre de 2005, 23:08 »
Perdon por la tardanza.
Lo que he hecho es lo siguiente.Lo que se escribio en el Grid lo he metido
tambien en un array de dos dimensiones.Dado que si me da la fila y la columna
en la que pincho en el grid, con dicha fila y columna accedo al array y listo.
Fila:=FrmPrestamo.StGridCuadricula.Row;
Columna :=FrmPrestamo.StGridCuadricula.Col;
TotalPorMes:=Resultado[Fila,Columna];
Gracias por todo.Sois de gran ayuda y os estoy muy agradecido , de verdad.
32
« en: Martes 11 de Octubre de 2005, 00:27 »
Gracias , ya he conseguido que funcione.
saludos.
33
« en: Martes 11 de Octubre de 2005, 00:25 »
Muchas gracias a tod@s.
34
« en: Lunes 10 de Octubre de 2005, 10:43 »
Pues en principio yo tambien habia pensado eso, pero me devuelve en la
cadena el valor vacio.
No lo entiendo.
35
« en: Domingo 9 de Octubre de 2005, 23:26 »
Y de paso como coger el valor que contiene esa celda.
Gracias.
36
« en: Domingo 9 de Octubre de 2005, 23:10 »
Alguien me puede decir al hacer click en el stringGrid, en una de las celdas,
como puedo saber que columna y fila son.
Saludos.
37
« en: Domingo 9 de Octubre de 2005, 01:10 »
He averiguado que se pueden dividir reales con /.
Vale, pero ahora no se que me pasa, les pongo el codigo y les agredeceria
mucho que me echaran una mano, porque estoy un poco desesperado.
var Interes :float;
Interes:= ((strtofloat(FrmPrestamo.StGridCuadricula.Rows[Fila].Text) / 100) / 12);
y me da error de conversion, is not a valid floating point value.
Saludos.
38
« en: Sábado 8 de Octubre de 2005, 23:38 »
Buenas noches a todos.
Existe alguna instruccion con la cual pueda dividir con decimales, ya que la
instruccion DIV solo permite la division entre integers.
Ejemplo:
123,25 dividido entre 0,5 = 246,5
y ya puestos a preguntar con que tipo trabajo, float,real,variant.
Muchas gracias y perdonen mi ignorancia.
Saludos.
39
« en: Sábado 8 de Octubre de 2005, 07:51 »
Buenos dias.Agradecer a todo el mundo y decir que este foro es maravilloso.
Como soy novato en Delphi necesito saber algo mas.
En este caso se trata de Numeros Decimales.Creo que con el Format
puedo formatearlos con el numero de decimales que desee, pero como
puedo luego trabajar con ese numero .Es decir no puedo sumar un Integer
a un numero decimal,ya que no son los mismos tipos.
Gracias.
40
« en: Sábado 8 de Octubre de 2005, 07:39 »
Muchisimas gracias.No sabes el favor que me has hecho.
Gracias
41
« en: Viernes 7 de Octubre de 2005, 01:04 »
Añadir que lo necesito saber en tiempo de ejecucion, evidentemente.
42
« en: Viernes 7 de Octubre de 2005, 00:58 »
Creo que como siempre no me he expresado bien.
Lo que necesito saber es dado un conjunto de objetos en mi formulario,menus,
botones,labels,etc. como he dicho anteriormente con la instruccion
componentcount se cuantos objetos tiene mi formulario, pero ahora necesito
saber de que tipo son , es decir , si el component[1] es un menu o un boton, por
ejemplo.
Saludos.
43
« en: Miércoles 5 de Octubre de 2005, 01:20 »
Hola a todos.
Tengo una funcion en Visual Basic
For Each ctl In frm.Controls
Set ctl.Font = fnt
sCtlType = TypeName(ctl)
If sCtlType = "Label" Then
ctl.Caption = LoadResString(CInt(ctl.Tag) + intIdioma)
ElseIf sCtlType = "Menu" Then
Select Case CInt(ctl.Caption) + intIdioma
Case 2
ctl.Caption = "&Salir"
Case 3
ctl.Caption = "&Idioma"
Case 10
ctl.Caption = "&Opciones de BDs."
Case 11
ctl.Caption = "&Compactar BDs."
Case 12
ctl.Caption = "Co&pia de Seguridad"
End Select
ElseIf sCtlType = "TabStrip" Then
For Each obj In ctl.Tabs
obj.Caption = LoadResString(CInt(obj.Tag) + intIdioma)
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText) + intIdioma)
Next
ElseIf sCtlType = "Toolbar" Then
For Each obj In ctl.Buttons
obj.ToolTipText = LoadResString(CInt(obj.Tag) + intIdioma)
Next
ElseIf sCtlType = "ListView" Then
For Each obj In ctl.ColumnHeaders
obj.Text = LoadResString(CInt(obj.Tag) + intIdioma)
Next
Else
nVal = 0
nVal = Val(ctl.Tag) + intIdioma
If nVal > 0 Then ctl.Caption = LoadResString(nVal)
nVal = 0
nVal = Val(ctl.ToolTipText)
If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
End If
Next
la cual por cada tipo que exista le voy cambiando el idioma a cada control.Es
decir si en mi formulario tengo menus,botones,labels,etc con la instruccion
TypeName(ctl) me dice de que tipo es el control y en base a eso yo actuo.
Me gustaria saber si existe algo parecido en Delphi.
Por un lado si creamos un bucle
for i:=0 to componentcount - 1 do ,puedo saber cuantos componentes hay e
ir uno por uno recorriendolos.Lo que necesito saber es de que tipo son cada
uno.
Saludos.
44
« en: Miércoles 5 de Octubre de 2005, 00:14 »
Muchas gracias.
45
« en: Martes 4 de Octubre de 2005, 21:54 »
Usted perdone, pero creia que me habia explicado claramente.No es lo
que usted acaba de poner, ya que con ello lo que usted esta haciendo es escribir
en el registro de windows.
Lo que yo necesito que me aclaren es lo siguiente:
Dado un fichero .res de recursos que crea el propio delphi nada mas crear
una aplicacion, necesido leer de ese fichero.
En visual basic la instruccion correspondiente seria
LoadResString(20) , que lee de un archivo de recursos que esta dentro del
proyecto.
Espero que asi quede claro cual es mi duda y perdonen las molestias.
Saludos.
46
« en: Martes 4 de Octubre de 2005, 12:00 »
Me gustaria saber si alguien me podria explicar como poder leer
de un archivo de recursos en Delphi.
Gracias.
|
|
|
Mostrar Mensajes
