TStringList do RichEdit

[wo!]

Witam
Próbuje przekazać tekst bez formatowania z TStringList do RichEdit :

Kod: Zaznacz cały

void __fastcall TStringList_To_RichEdit(TStringList *List,TRichEdit *s)
{
       s->Visible=false;   
       TMemoryStream *X = new TMemoryStream;
   X->Position = 0;
   List->SaveToStream(X);
   X->Position = 0;
   s->Lines->LoadFromStream(X);
   delete X;
   s->Visible=true;
};
{

podobną f-cje zdefiniowałem w drugą strone tj z RichEdit do TStringList i tam wszystko jest OK.
Przy pomocy tej fcji w pewnych liniach RichEdit pojawiają się znaki NULL chociaż wcale niebyły wpisywane do TStringList
co uniemożliwia powtórne przeniesienie tekstu do TStringList, poprostu tekst sie urywa na pierwszym napotkanym NULL-u.
Oczywiscie jest możliwość użycia prostego s->Lines = List; ale w tym wypadku trwa to zdecydowanie za długo, średnio jest do
przepisania 50-100k linii.Próbowałem także włączać/wyłączać PlainText w RichEdit, bez żadnego rezultatu.
Mam nadzieje, że ktoś wie jak rozwiązać ten problem.
Pozdrawiam

[Cyfrowy Baron]

Lista typy TStringList na każdym końcu linii zawiera znak końca lini. Kontrolka RichEdit potrafi wyświetlać tekst sformatowany dlatego wyświetla również te znaki.
Skoro nie używasz tekstu sformatowanego, zamiast RichEdit użyj Memo.

[wo!]

Znak NULL pojawia się w sposób losowy np w osiemsetnej linii i niema związku ze znakiem końca linii. Np dodaje do TStringList text Add("Text") 20tyś razy , przepisuje i znak null pojawia się w RichEdit w któreś tam linii. Jeżeli byłoby jak mówisz dotyczyłoby to każdej z linii tekstu. I nie chodzi o sposób wyświetlania to nie jest tu istotne . Przekazanie TStringList->RichEdit a następnie RichEdit->TStringList nie spełnia swojej funkcji bo w pierwszym przekazaniu wystepują błędy.
Pozdrawiam

[Cyfrowy Baron]

Sprawdziłem ten Twój kod u siebie i nie stwierdziłem tego błędu:

plik nagłówkowy:

Kod: Zaznacz cały

private:
            TStrings *Lista;

plik źródłowy:

Kod: Zaznacz cały

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
Lista = new TStringList;
Lista->LoadFromFile(ExtractFilePath(ParamStr(0)) + "plik.txt");
}
//---------------------------------------------------------------------------
void __fastcall TStringList_To_RichEdit(TStrings *List, TRichEdit *s)
{
   s->Lines->Clear();
   TMemoryStream *X = new TMemoryStream;

   X->Position = 0;

   List->SaveToStream(X);

   X->Position = 0;

   s->Lines->LoadFromStream(X);

   delete X;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList_To_RichEdit(Lista, RichEdit1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Lista;
}
//---------------------------------------------------------------------------


a tutaj masz użyty plik tekstowy:

[wo!]

Dziękuje za odpowiedz , wklejam mój kod:

Kod: Zaznacz cały

private:   // User declarations
   TStringList *Lista;


Kod: Zaznacz cały

void __fastcall TStringList_To_RichEdit(TStringList *List,TRichEdit *s)
{
   s->Visible=false;
   s->Clear();
   TMemoryStream *X = new TMemoryStream;
   X->Position = 0;
   List->SaveToStream(X);
   X->Position = 0;
   s->Lines->LoadFromStream(X);
   delete X;
   s->Visible=true;
};
void __fastcall RichEdit_To_TStringList(TRichEdit *s,TStringList *List)
{
   s->Visible=false;
   s->PlainText=true;
   List->Clear();
   TMemoryStream *X = new TMemoryStream;
   X->Position = 0;
   s->Lines->SaveToStream(X);
   X->Position = 0;
   List->LoadFromStream(X);
   delete X;
   s->Visible=true;
};

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   Lista = new TStringList;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Lista->Clear();
double Z = 0;
for(int x=100000;x>0; x--)
{
    Z=Z-1e-6;
    Lista->Add(FloatToStr(Z));
};
TStringList_To_RichEdit(Lista,RichEdit1);
Label1->Caption=IntToStr(RichEdit1->Lines->Count );
RichEdit_To_TStringList(RichEdit1,Lista);
Label2->Caption=IntToStr( Lista->Count);
TStringList_To_RichEdit(Lista,RichEdit1);
Label3->Caption=IntToStr(RichEdit1->Lines->Count );
};
//---------------------------------------------------------------------------


U mnie rezulatat jest taki , że ostatecznie w RichEdit1 znajduje się 831linii , zamiast 100k. I na końcu tej 831szej linii znajduje się w/w znak specjalny.
Znam rozwiÄ…zanie problemu , ale nie jest to rozwiÄ…zanie oparte na TMemoryStream.

Pozdrawiam

[Witold]

U mnie rezulatat jest taki , że ostatecznie w RichEdit1 znajduje się 831linii , zamiast 100k. I na końcu tej 831szej linii znajduje się w/w znak specjalny.
Znam rozwiÄ…zanie problemu , ale nie jest to rozwiÄ…zanie oparte na TMemoryStream.

Pozdrawiam

U mnie gdy to testowałem, w RichEdit1 znalazło się 100k linii (BCB6 i Turbo C++ 2006).

[wo!]

C++ Builder 2009

[wo!]

Sprawdziłem to na BCB6 i rzeczywiście jest tak jak powinno być

[Cyfrowy Baron]

Przetestowałem Twój kod u siebie (CodeGear RAD Studio C++ Builder 2007) i wszystko jest w normie.

[wo!]

Skompilowany projekt Barona w załączniku , niestety nie działa prawidłowo.
Ale chyba temat powinień zostać zamknięty , mimo wszystko to wina Buildera , niedługo zobacze na nowym Update
Pozdrawiam

[wo!]

Jeszcze screenshot proforma..

[Cyfrowy Baron]

To nie tyle błąd środowiska, ile błędne ustawienia środowiska, lub co bardziej prawdopodobne, różnice w bibliotekach, co oznacza, ze trzeba j trochę inaczej stosować.