ValueListEditor - как записать переменные - C++ Builder - Ответ 11641371

@strcmp75 · 21.10.2017, 17:03

Народ, прошу помощи.
Делаю программу для сортировки массива структур типа "ключ-значение" (оба поля типа String).

В компонент ValueListEditor нужно записать из файла пары строк, которые затем преобразовать в структуры. Почему-то в компонент пишутся только первые символы каждой строки. Не могу понять, почему.
Чтение из файла и запись - в обработчике LoadFileClick.
Объясните, пожалуйста (код прилагается)

Заголовочник формы:

Кликните здесь для просмотра всего текста

C++

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <ValEdit.hpp>
#include <Buttons.hpp>
#include "Algorithms.h"
#include <Dialogs.hpp>
#include <ExtDlgs.hpp>
//---------------------------------------------------------------------------
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TValueListEditor *Values1;
    TValueListEditor *Values2;
    TLabel *Label1;
    TLabel *Label2;
    TGroupBox *GroupBox1;
    TLabeledEdit *LabeledEdit1;
    TLabeledEdit *LabeledEdit2;
    TButton *ButtonOK;
    TButton *Button2;
    TButton *Button3;
    TGroupBox *GroupBox2;
    TButton *BubbleSort;
    TButton *ShakerSort;
    TButton *ParallelSort;
    TButton *QuickSort;
    TButton *ShellSort;
    TGroupBox *GroupBox3;
    TLabeledEdit *LabeledEdit3;
    TBitBtn *BitBtn1;
    TButton *LoadFile;
    TOpenTextFileDialog *OpenFile;
    void __fastcall ButtonOKClick(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
    void __fastcall BubbleSortClick(TObject *Sender);
    void __fastcall LoadFileClick(TObject *Sender);
    void __fastcall ShakerSortClick(TObject *Sender);
    void __fastcall ParallelSortClick(TObject *Sender);
    void __fastcall QuickSortClick(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:    // User declarations
    TRecord* table; //указатель на массив записей (таблицу)
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    //__fastcall ~TForm1() {delete [] table;}
    void ConvertValueListToRecords(TRecord* recArray, TValueListEditor* ValList);
    void ConvertRecordsToValueList(TRecord* recArray, int len, TValueListEditor* ValList);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Код формы

Кликните здесь для просмотра всего текста

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonOKClick(TObject *Sender)
{
    if(LabeledEdit1->Text == "" || LabeledEdit2->Text == "")
    {
        MessageDlg("Заполните оба поля!", mtWarning, TMsgDlgButtons()<<mbOK, 0);
    }
    else
    {
        Values1->InsertRow(LabeledEdit1->Text, LabeledEdit2->Text, true);
        LabeledEdit1->Clear();
        LabeledEdit2->Clear();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Values1->Strings->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Values2->Strings->Clear();
}
//---------------------------------------------------------------------------
void TForm1::ConvertValueListToRecords(TRecord* recArray, TValueListEditor* ValList)
{
    for(int i = 0; i<ValList->RowCount-1; i++)
    {
        recArray[i].key = ValList->Cells[0][i+1];
        recArray[i].value = ValList->Cells[1][i+1];
    }
}
void TForm1::ConvertRecordsToValueList(TRecord* recArray, int len, TValueListEditor* ValList)
{
    ValList->Strings->Clear();
    for(int i = 0; i<len; i++)
    {
        ValList->InsertRow(recArray[i].key, recArray[i].value, true);
    }
}
bool isValueListEmpty(TValueListEditor* valList)
{
    if(valList->RowCount < 3 && (valList->Cells[0][1] == "" || valList->Cells[1][1] == ""))
    {
        return true;
    }
    return false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::LoadFileClick(TObject *Sender)
{
    FILE* fp;
    String ReadKey = " ";
    String ReadValue = " ";
    int i = 1;
    if(OpenFile->Execute())
    {
        if((fp = _wfopen(OpenFile->FileName.c_str(), L"rt")) == NULL)
        {
            MessageDlg("Ошибка открытия файла", mtError, TMsgDlgButtons()<<mbOK, 0);
            return;
        }
        else
        {
            while(!feof(fp))
            {
                try
                {
                    fwscanf(fp, L"%s", ReadKey);
                    fwscanf(fp, L"%s", ReadValue);
                    Values1->InsertRow(ReadKey, ReadValue, true);
                    Values1->Cells[0][i] = ReadKey;
                    Values1->Cells[1][i] = ReadValue;
                    i++;
                }
                catch(...)
                {
                     MessageDlg("Ошибка чтения из файла", mtError, TMsgDlgButtons()<<mbOK, 0);
                     return;
                }
            }
            fclose(fp);
        }
    }
    else
    {
        MessageDlg("Вы не выбрали файл", mtError, TMsgDlgButtons()<<mbOK, 0);
        return;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BubbleSortClick(TObject *Sender)
{
    if(isValueListEmpty(Values1))
    {
        MessageDlg("Таблица пуста!", mtError, TMsgDlgButtons()<<mbOK, 0);
        return;
    }
    table = new TRecord[Values1->RowCount-1];
    ConvertValueListToRecords(table, Values1);
    //Сортировка пузырьком
    SortBubble(table, Values1->RowCount-1);
    ConvertRecordsToValueList(table, Values1->RowCount-1, Values2);
    delete [] table;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ShakerSortClick(TObject *Sender)
{
    if(isValueListEmpty(Values1))
    {
        MessageDlg("Таблица пуста!", mtError, TMsgDlgButtons()<<mbOK, 0);
        return;
    }
    table = new TRecord[Values1->RowCount-1];
    ConvertValueListToRecords(table, Values1);
    //Шейкерная сортировка
    SortShaker(table, Values1->RowCount-1);
    ConvertRecordsToValueList(table, Values1->RowCount-1, Values2);
    delete [] table;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ParallelSortClick(TObject *Sender)
{
//  if(isValueListEmpty(Values1))
//  {
//      MessageDlg("Таблица пуста!", mtError, TMsgDlgButtons()<<mbOK, 0);
//      return;
//  }
//  table = new TRecord[Values1->RowCount-1];
//  ConvertValueListToRecords(table, Values1);
//  //Сортировка Бэтчера
//  SortBatcher(table, Values1->RowCount-1);
//  ConvertRecordsToValueList(table, Values1->RowCount-1, Values2);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::QuickSortClick(TObject *Sender)
{
    if(isValueListEmpty(Values1))
    {
        MessageDlg("Таблица пуста!", mtError, TMsgDlgButtons()<<mbOK, 0);
        return;
    }
    table = new TRecord[Values1->RowCount-1];
    ConvertValueListToRecords(table, Values1);
    //Сортировка Хоара
    SortHoars(table, Values1->RowCount-1);
    ConvertRecordsToValueList(table, Values1->RowCount-1, Values2);
    delete [] table;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete [] table;
}
//---------------------------------------------------------------------------

Заголовочник со структурой "ключ-значение" и функциями сортировки (Algorithms.h):

Кликните здесь для просмотра всего текста

C++

#include <Dialogs.hpp>
#include <SysUtils.hpp>
#include "Unit1.h"
#include <string.h>
 
typedef struct TRecord //запись таблицы
{
    String key;
    String value;
}rec;
 
typedef unsigned int uint;
 
inline void Exchange(TRecord& a, TRecord& b)
{
    TRecord tmp = a;
    a = b;
    b = tmp;
}
 
void SortBubble(TRecord* arr, int len)
{
    bool isSorted = false; //признак "отсортировано"
    int xchgCount = 0; //кол-во перестановок
    int compareCount = 0; //кол-во сравнений
    while(!isSorted)
    {
        isSorted = true; //предполагаем, что отсортировали
        for(int i = 0; i<len; i++)
        {
            for(int j = 0; j<len; j++)
            {
                if(arr[j].key.Compare(arr[j+1].key) > 0)
                {
                    Exchange(arr[j], arr[j+1]); //меняем местами
                    xchgCount++;
                    compareCount++;
                    isSorted = false; //таким образом, еще не отсортировано
                }
            }
        }
    }
    MessageDlg("Сортировка пузырьком завершена. Перестановок: "
    + IntToStr(xchgCount) + ". Сравнений: "
    + IntToStr(compareCount), mtInformation, TMsgDlgButtons()<<mbOK, 0);
}
 
void SortShaker(TRecord* arr, int len)
{
    int xchgCount = 0;
    int compareCount = 0;
 
    int leftBound = 1;
    int rightBound = len-1;
    while(leftBound <= rightBound)
    {
        for(int i = rightBound; i >= leftBound; i--)
            if(arr[i-1].key.Compare(arr[i].key) > 0)
            {
                Exchange(arr[i], arr[i-1]);
                xchgCount++;
                compareCount++;
            }
            leftBound++;
        for(int i = leftBound; i <= rightBound; i++)
            if(arr[i-1].key.Compare(arr[i].key) > 0)
            {
                Exchange(arr[i], arr[i-1]);
                xchgCount++;
                compareCount++;
            }
            rightBound--;
    }
    MessageDlg("Шейкерная сортировка завершена. Перестановок: "
    + IntToStr(xchgCount) + ". Сравнений: "
    + IntToStr(compareCount), mtInformation, TMsgDlgButtons()<<mbOK, 0);
}
 
void SortBatcher(TRecord* arr, int len)
{
    int xchgCount = 0;
    int compareCount = 0;
    uint p = len;
    while(p > 0)
    {
        uint q = len;
        uint r = 0;
        uint distance = p; //расстояние перемещения элементов
        bool res;
        do
        {
            uint indexTo = len - distance;
            for(uint i = 0; i < indexTo; i++)
            {
                if((i & p) == r)
                {
                    if(arr[i].key.Compare(arr[i+distance].key) > 0)
                    {
                        Exchange(arr[i], arr[i+distance]);
                        xchgCount++;
                        compareCount++;
                    }
                }
                res = q != p;
                if(res)
                {
                    distance = q - p;
                    q >>= 1;
                    r = p;
                }
            }
        }
        while(res);
        p >>= 1;
    }
    MessageDlg("Параллельная сортировка Бэтчера завершена. Перестановок: "
    + IntToStr(xchgCount) + ". Сравнений: "
    + IntToStr(compareCount), mtInformation, TMsgDlgButtons()<<mbOK, 0);
}
 
void SortQuick(TRecord* arr, int leftBound, int rightBound, int& cmps, int& xcgs)
{
    int xchgCount = 0;
    int compareCount = 0;
    int i, j; //индексы
    i = leftBound; j = rightBound; //левая и правая граница сортировки
    TRecord comparand = arr[(leftBound + rightBound)/2]; //компаранд (элемент, относительно
    //которого сравниваются все остальные. Средний в массиве
    do
    {
        while(arr[i].key.Compare(comparand.key) > 0 && i < rightBound)
        {
            i++;
            compareCount++;
        }
        while(arr[j].key.Compare(comparand.key) < 0 && j > leftBound)
        {
            j--;
            compareCount++;
        }
        if(i <= j)
        {
            Exchange(arr[i], arr[j]);
            xchgCount++;
            i++;
            j--;
        }
    }
    while(i > j);
    if(leftBound < j)
        SortQuick(arr, leftBound, j, compareCount, xchgCount); //рекурсия
    if(rightBound > i)
        SortQuick(arr, i, rightBound, compareCount, xchgCount); //рекурсия
}
 
void SortHoars(TRecord* arr, int len)
{
    int xch = 0;
    int cmp = 0;
    SortQuick(arr, 1, len, cmp, xch);
    MessageDlg("Быстрая сортировка Хоара завершена. Перестановок: "
    + IntToStr(xch) + ". Сравнений: "
    + IntToStr(cmp), mtInformation, TMsgDlgButtons()<<mbOK, 0);
}

Вернуться к обсуждению:
ValueListEditor - как записать переменные C++ Builder

Следующий ответ