Log View Помогите плиз.

Вот захотел програмульку написать, на работе всегда может пригодиться. Записываю в неё все нужные мне логи, а потом по шелчку на них хотелось бы всё это видеть.
Ну вот проблема возникла с досовскими буквами. Перекодировкой никогда не занимался. Мне в принципе даже автоопределение не нужно. Вот куда вставить не знаю. И что вставить. Нужно дос текст в мемо или ричедите показывать.
Вот код формы в тексте

<br>  object TreeView1: TTreeView<br>    Left = 0<br>    Top = 0<br>    Width = 129<br>    Height = 401<br>    Indent = 19<br>    TabOrder = 0<br>    OnChange = TreeView1Change<br>    Items.Data = {<br>      030000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000<br>      05312E6C6F671E0000000000000000000000FFFFFFFFFFFFFFFF000000000000<br>      000005322E6C6F671E0000000000000000000000FFFFFFFFFFFFFFFF00000000<br>      0000000005332E6C6F67}<br>  end<br>  object Button1: TButton<br>    Left = 80<br>    Top = 408<br>    Width = 49<br>    Height = 25<br>    Caption = 'Apply'<br>    TabOrder = 1<br>    OnClick = Button1Click<br>  end<br>  object Button2: TButton<br>    Left = 0<br>    Top = 408<br>    Width = 33<br>    Height = 25<br>    Caption = 'New'<br>    TabOrder = 2<br>    OnClick = Button2Click<br>  end<br>  object Button3: TButton<br>    Left = 40<br>    Top = 408<br>    Width = 33<br>    Height = 25<br>    Caption = 'Del'<br>    TabOrder = 3<br>    OnClick = Button3Click<br>  end<br>  object RichEdit1: TRichEdit<br>    Left = 136<br>    Top = 0<br>    Width = 513<br>    Height = 401<br>    Lines.Strings = (<br>      'RichEdit1')<br>    ScrollBars = ssVertical<br>    TabOrder = 4<br>  end<br>  object Button4: TButton<br>    Left = 184<br>    Top = 416<br>    Width = 225<br>    Height = 17<br>    Caption = 'Button4'<br>    TabOrder = 5<br>  end<br>  object Timer1: TTimer<br>    Interval = 60000<br>    OnTimer = Timer1Timer<br>    Left = 88<br>    Top = 8<br>  end<br>  object OpenDialog1: TOpenDialog<br>    Left = 88<br>    Top = 48<br>  end<br>end<br>

unit1.cpp

<br>TForm1 *Form1;<br>int run=0;<br>AnsiString select;<br>AnsiString aDirSav;<br>//---------------------------------------------------------------------------<br>__fastcall TForm1::TForm1(TComponent* Owner)<br>        : TForm(Owner)<br>{<br>}<br>//---------------------------------------------------------------------------<br>void __fastcall TForm1::Button1Click(TObject *Sender)<br>{<br>TreeView1->SaveToFile(aDirSav);<br>}<br>//---------------------------------------------------------------------------<br><br>void __fastcall TForm1::FormCreate(TObject *Sender)<br>{<br>aDirSav=GetCurrentDir()+"\\tree.sav";<br>TreeView1->LoadFromFile(aDirSav);<br>}<br>//---------------------------------------------------------------------------<br><br>void __fastcall TForm1::Timer1Timer(TObject *Sender)<br>{<br>if(run==1)<br>{<br>//Memo1->Clear();<br>RichEdit1->Clear();<br>select=TreeView1->Selected->Text;<br>//Memo1->Lines->LoadFromFile(select);<br>RichEdit1->Lines->LoadFromFile(select);<br>}<br>}<br>//---------------------------------------------------------------------------<br><br>void __fastcall TForm1::TreeView1Change(TObject *Sender, TTreeNode *Node)<br>{<br>run=1;<br>//Memo1->Clear();<br>RichEdit1->Clear();<br>select=TreeView1->Selected->Text;<br>Memo1->Lines->LoadFromFile(select);<br>RichEdit1->Lines->LoadFromFile(select);<br>}<br>//---------------------------------------------------------------------------<br><br>void __fastcall TForm1::Button2Click(TObject *Sender)<br>{<br>AnsiString s;<br>if(OpenDialog1->Execute())<br>{<br>s=OpenDialog1->FileName;<br>//s=InputBox("Новый лог","Введите путь к файлу",s);<br>TreeView1->Items->Insert(TreeView1->Items->Item[0],s);<br>}<br>}<br>//---------------------------------------------------------------------------<br><br>void __fastcall TForm1::Button3Click(TObject *Sender)<br>{<br>TreeView1->Items->Delete(TreeView1->Selected);<br>}<br>//---------------------------------------------------------------------------<br><br>

Дизайн и т.д. всё наброски. Вот как перекодировать не знаю. С виндовским текстом всё ок.

Посмотри тут:
http://forum.citforum.ru/mes.php?id=28896&fs=0&ord=0&lst=0&board=0&arhv=

Цитата Adil, 01.08.02, 11:21:29

Посмотри тут:
http://forum.citforum.ru/mes.php?id=28896&fs=0&ord=0&lst=0&board=0&arhv=

Нихрена я не понимаю в этом бэйсике.
Ничего у меня не получается.

if(ch _GE_ 128)
{
if(ch _GE_ 192&& ch _LE_ 239)

else if(ch==(unsigned char )'№')

Что такое GE LE и что за '№' ???

Эти мелкомягкие нихрена не могут ничего нормального сделать.

Сообщение отредактировано: purpe - 02.08.02, 06:22