C ++ Builder

[Stilet]

Знаю. Пройтись отладкой по программе и выяснить где дублирование. Клавиша F8 тебе в помошь. Ставь точку прерывания на начало твоего кода и вперед

[Ольга 963]

Извините, но я не совсем поняла про клавишу F8

[Stilet]

Клавиша F8 начинает\продолжает отладку по каждому оператору (читай строке) отдельно. Выполнит и остановится на следующей. Это называется пошаговая отладка. Так можно узнать на какой строке какие операторы что делают.

[Ольга 963]

Если я правильно поняла, то клавиша F8 покажет где я продублировала строчку и мне нужно будет ее удалить?

[Stilet]

Нет. Не покажет. Отладка предназначена для того чтоб выяснить где в программе ошибка, но она не скажет "Эй, ты иди сюда тут решение твоих вопросов".
Отладка всего лишь будет выполнять программу по шагам, а правильный ли это шаг или нет решать только тебе.

[Ольга 963]

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

#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 *tempInList = new TStringList();
TStringList *strOutList = new TStringList();

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if (OpenDialog1->Execute())  {

  strInList -> LoadFromFile (OpenDialog1->FileName);
  Memo1->Lines = strInList;
}
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
 {

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=s->Count-1;i>=0;i--){
	 if(s->Strings[i].Length()>5){
	  s->Delete(i);
		 }
	}
	for (int j = 0; j < s->Count; j++) strBuf2 = strBuf2 + s->Strings[j]+' ';

//}
	strOutList->Add(strBuf2);
	strBuf2=' ';
//	 strOutList->Add(s->Text);
	//Label2->Caption = s->Text;
	 delete s;
	 //s->Text = 0;

}
 Memo2->Lines= strOutList;
 strOutList->Clear();
}

void __fastcall TForm1::Save1Click(TObject *Sender)
{
   if(SaveDialog1->Execute()) {

   Memo2->Lines->SaveToFile(SaveDialog1->FileName+".txt");
   }
}
//---------------------------------------------------------------------------

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

Я не знаю что у тебя за кака. но я бы все выбросил и переделал вот так:

void __fastcall TForm1::Button1Click(TObject *Sender)
 {

TStringList *s=new TStringList();
Memo2->Lines->Clear();
for(int q=0	; q<Memo1->Lines->Count;q++){
	s->DelimitedText= Memo1->Lines->Strings[q];

	for(int i=0;i<s->Count;i++){
	          if(s->Strings[i].Length()<=5){
         	  Memo2->Lines->Text=strOutList->Text+s->Strings[i]+' ';
		 }
	}
	Memo2->Lines->Add('');
}
delete s;
}