Ayuda con Programa en C++

[yelian]

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]]

hola, con

 Memo1->Lines->LoadFromFile("c:\fichero");

deberia funcionarte. saludos

[yelian]

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]]

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]]

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]

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]]

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]]

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]

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]]

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]

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]]

¿Puedes poner algo de tu código?

Saludos.

[yelian]

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]

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]]

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:

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

Te funcionará como quieres.

Otra opción de guardar puede ser:

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]

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]

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]]

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]]

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?

Saludos

[[coso]]

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.