C ++ Builder

[Smitt&Wesson]

Согласен, так тоже работать будет. Возможно даже и быстрее для больших списков.

[Ольга 963]

Выдает ошибку. может вы знаете, как ее исправить: List index out of bounds (32) спасибо

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String StrEdit1;
String strBuf1, strBuf2;
TStringList *s=new TStringList();
char cBuf1, cBuf2,i;
TStringList *strInList = new TStringList();

TStringList *strOutList = new TStringList();

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if (OpenDialog1->Execute())  {
  Label1 -> Caption = OpenDialog1->FileName;
  strInList -> LoadFromFile (OpenDialog1->FileName);
  Memo1->Lines = strInList;
}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
 {
//strInList=Memo1->Text;
//Buf1=Memo1->Text;
// Label1->Caption = Memo1->Lines->Count;
for (int t = 1; t < Memo1->Lines->Count; t++) {
 strInList->Add(Memo1->Lines->Strings[t]);
}


for(int q=0	; q<strInList->Count;q++){
	strBuf1 = strInList->Strings[q];
	TStringList *s=new TStringList();
	s->DelimitedText= strBuf1;
	for(int i=1; i<=s->Count; i++){
	 if(s->Strings[i].Length()<5){
	  s->Delete(i);
	 }
	}
	strOutList->Add(s->Text);
	 delete s;


}
 Memo2->Lines= strOutList;
}

void __fastcall TForm1::Save1Click(TObject *Sender)
{
   if(SaveDialog1->Execute()) {
	   Label1->Caption=SaveDialog1->FileName;
	   Memo2->Lines->SaveToFile(SaveDialog1->FileName+".txt");
   }
}
//---------------------------------------------------------------------------

[Stilet]

for(int i=1; i<=s->Count; i++){

Читаем внимательно нашу ереписку со Смит-Вессоном выше, и обращаем внимание на пост №11 (первый на этой странице).
Сравниваем мое предложение и то что ты написала - делаем выводы.

[Ольга 963]

если написать, как в посте 11, ошибка будет исправлена?

[Baburek]

Smitt&Wesson, Stilet: действительно так лучше! спасибо

Ольга 963, List index out of bounds - означает выход за пределы списка / массива. Попробуйте как вам предложили. Если ошибка сохранится, то гораздо легче чем гадать будет посмотреть, что внутри творится. Для начала посмотрите(выведите) слова, которые получаете. Все ли на месте

[Stilet]

если написать, как в посте 11, то получится как в посте 11, и не более.
Не пойму что мешает проверить?

[Ольга 963]

Спасибо) у меня все работает

[Ольга 963]

Как сделать, чтобы текст memo выводился строчкой,а не столбиком.спасибо

[Stilet]

Куда выводился?

[Ольга 963]

чтобы выводился текст строкой, я сделала) но у меня снова проблема. почему то текст выводится в memo два раза,хотя должен только один раз. вы не знаете, как это можно исправить) заранее спасибо