Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Ayuda con Programa en C++ (https://www.clubdelphi.com/foros/showthread.php?t=61118)

yelian 26-10-2008 18:43:51

Ayuda con Programa en C++
 
Necesito que me ayuden a terminar una aplicación que estoy haciendo en C++, la duda que tengo es que no se como mostrar en un Memo el contenido de un txt,

si me ayudaran se los agrade seria mucho, disculpen la ignorancia es que soy nuevo en esto del mundo de la programación, si hago alguna pregunta tonta me disculpan lo que pasa es que los novatos somos así.

Después pongo mas dudas que tengo sobre la aplicación que estoy haciendo gracias de ante mano.

coso 26-10-2008 18:58:08

hola, con
Código:

Memo1->Lines->LoadFromFile("c:\fichero");
deberia funcionarte. saludos

yelian 26-10-2008 20:00:26

gracias
 
Gracias me funciono a la perfeccion, pero si no fuera mucha molestia me gustaria que me explicara el code para ver como funciona, asi tengo alguna idea de como funciona.

Muchas gracias por la ayuda ...

coso 26-10-2008 20:01:51

no hay mucho secreto. Es un metodo de la clase TStrings el cual carga un fichero de texto. Te recomiendo que le eches un vistazo a la ayuda en linea. saludos.

coso 26-10-2008 20:04:07

echandole un vistazo a 'classes.pas', donde se encuentra la definicion de esta clase (en Delphi, en C++ sera equivalente):

Código Delphi [-]
procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;
procedure TStrings.LoadFromStream(Stream: TStream);
var
  Size: Integer;
  S: string;
begin
  BeginUpdate;
  try
    Size := Stream.Size - Stream.Position;
    SetString(S, nil, Size);
    Stream.Read(Pointer(S)^, Size);
    SetTextStr(S);
  finally
    EndUpdate;
  end;
end;

yelian 26-10-2008 20:58:51

Disculpa pero no se mucho sobre Delphi me gustaría que las aclaraciones fue eran en el Lenguaje de C++, y acuérdate de que no se tanto de C++, soy un novato en esto de la programación ...

gracias por ayudarme y disculpe la molestia

coso 26-10-2008 21:10:45

bueno, en C++ sigue siendo lo mismo: loadfromfile es un metodo implementado en la clase TStrings para cargar lineas de texto. Echale un vistazo a classes.cpp y busca LoadFromFile, y tendras el equivalente de lo que te he puesto. Saludos.

escafandra 27-10-2008 07:27:50

Una pequeña aclaración yelian,la clase TString, como todas las clases VCL, están originalmente programadas en delphi, por lo que el código fuente está en delphi. Builder es capaz de compilar delphi.

Símplemenmte quédate, de momento, con la explicación que te da coso.

Saludos.

yelian 28-10-2008 00:33:44

Gracias por la aclaracion anteriol, lo que me doy cuenta de que tengo que seguir estudiando los tutoriales de C++ que tengo...

Pero bueno tengo otra inquietud ...
La idea es guardar un texto tecleado en un Memo en un archivo (txt)
yo por mi parte lo e echo así, pero bueno si ustedes tienen otro metodo mas facil de hacerlo diganmelo y claro si tengo algun Error me lo aclaran

Code:
string guardar;
guardar=Memo1->Text.c_str();
ofstream fSalida ("c:\salva.txt");
fSalida<<guardar;
fSalida.close();

gracias de antemano por la colaboracion...

escafandra 28-10-2008 07:19:41

Código:

bool Escribe(){
  String guardar;
  guardar=Memo1->Text.c_str();
  ofstream fSalida("d:\\salva.txt", ios::trunc);
  if(fSalida.fail()){
    return false;
  }
  fSalida << guardar.c_str();
  fSalida.close();
  return true;
}

Saludos.

yelian 30-10-2008 02:23:39

Gracias por el aporte anterior me fue util pero tengo un problemita, cuando guardo lo que e escrito, entre linia y linea me deja una linea en blanco,
Si presiono el boton de guardar varias veses me deja multiples lineas en blanco, y no se que hacer si pudieran darme una mano en eso como es de costumbre se lo agradeceria mucho...

escafandra 30-10-2008 17:31:24

¿Puedes poner algo de tu código?;)

Saludos.

yelian 30-10-2008 23:58:29

Bueno aquí les dejo una parte resumida de mi code, la idea de esta aplicacion que estoy haciendo es de poder visualizar un fichero (txt) y tambien poderlo modificar y guardar sus cambios , esto se puede hacer muy facil desde el explorer pero lo que quiero es que no se vea que fichero es el que se esta mostrando...

- Antes de nada creamos este archivo "D:\Datos.txt".
- En un Form insertamos un Memo y dos Botone uno=(Abrir Fichero) y el otro=(Guardar) ,
- En el primer Boton (Abrir Fichero) va este code-

Button1:
--------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo->Lines->LoadFromFile("D:\Datos.txt");
}

Button2:
--------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
string guardar;
guardar=Memo->Text.c_str();
ofstream fSalida ("D:\Datos.txt");
fSalida<<guardar;
fSalida.close();
}


*** Para que vean el problema que tengo, abran el archivo, escriban cualquier cosa en el y presionen varias veses el boton de Guardar y despues vuelban a abrirlo para que ustedes vean que entre linea y linea deja multiples espacios en blanco, como se puede solucional este problema si alguien sabe diganmelo....


yelian 31-10-2008 00:09:15

Bueno mira probe este code para el Button2 pero me sige haciendo lo mismo, no se que pueda ser

Code:

ofstream fSalida ("D:\Datos.txt");
fSalida<< Memo->Text.c_str();
fSalida.close();

escafandra 31-10-2008 01:37:48

Bueno, veo errores en el código. La ruta debes ponerla así:
"D:\\Datos.txt" con "doble barra".

En C, los archivos guardados en modo texto se les añade un retorno de carro y otro de línea \r\n. El TMemo está dividido en líneas, por lo tanto se incluyen \r\n nuevos al leer el archivo con el sistema fstream (que por defecto lee en modo texto)

Puedes utilizar para salvar el Memo:
Código:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Memo->Lines->SaveToFile("D:\\Datos.txt");
}

Te funcionará como quieres.

Otra opción de guardar puede ser:
Código:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  ofstream fSalida ("D:\\Datos.txt", ios::binary);
  fSalida<< Memo->Text.c_str();
  fSalida.close();
}

También te funcionará como quieres.

Saludos.;)

yelian 03-11-2008 16:30:04

Muchas Gracias escafandra las solución para lo que estoy haciendo es

Memo1->Lines->SaveToFile("D:\Datos.txt");

después planteo otra duda que tengo,

gracias por la ayuda

yelian 04-11-2008 14:28:10

Buenas para todos los del Foros estoy aquí de nuevo con mis dudas.
El problema que tengo es que no se como voy a hacer para cuando doy Enter se ejecute la acción de un botón,

Aclaracion:
Tengo un Form con un Edit y un Button la idea es de cuando presione Enter fuera como si estuviera dandole clic al Boton.

coso 04-11-2008 14:38:14

Hola, antes que nada lo mejor seria que cada nueva pregunta te fuera en un nuevo hilo (esta pregunta solo la veriamos escafandra y yo, por ejemplo). Si pones default a true lo solucionas. Saludos.

Lepe 04-11-2008 15:35:01

Al ponerlo como default cerrará la ventana al mismo tiempo, si no quieres ese efecto, en el onkeyUp del TEdit, puedes llamar al evento del clic.

Código Delphi [-]
if key = vk_return then
   button1.Click;

Edito: Ejem, ustedes lo traducen a C++ fale? :o

Saludos

coso 04-11-2008 15:36:29

esto...no la cierra. Sólo si tiene modalresult <> mrNone y es llamada por showmodal ;)

PD: ya de paso, si quieres el mismo efecto con Escape, puedes poner Cancel a true. saludos.


La franja horaria es GMT +2. Ahora son las 05:24:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi