[BCB] Lege regel uit memo halen

[0123456]

Ik ben nog steeds bezig met mijn programma, om meerdere bestanden samen te voegen tot 1 bestand in CBuilder 6

Nou heb ik het al voor elkaar om alle bestandsnamen van de te openen bestanden, samen te krijgen in een Memo, maar BCB gooit er zelf lege regels tussen en ik zie niet waar.
Ik heb al vanalles gezocht en niks gevonden over het verwijderen van die lege regels...

code:

for (Datum1 = StrToInt(Datum); Datum1 <= Datum2; Datum1++)
{
  Datum = Datum1;
  if (FileMaak == 0)
  {
    Bestand = "Fouten week "+WeekNummer+".txt";
    FileClose(FileCreate(Bestand));
    FileMaak = 1;
  }
  else if (FileMaak == 1)
  {
    FileListBox1->FileName ="Fouten "+Datum+" *";
    for (j=0;j<=FileListBox1->ItemIndex;j++)
    {
      FileListBox1->ItemIndex = j;
      If (Memo1->Text == "")                   <=Dit stukje werkt dus niet....
      { 
        Memo1->Lines->Delete();
      }
      Memo1->Lines->Append(FileListBox1->Items->Text);
    }
  }
}

Het is volgens mij heel simpel maar ik zie het ff niet
Iemand ideeen????

[0123456]

Sorry, even een klein kickje...

Maar is er iemand die de oplossing weet???

[Eelke Spaak]

Misschien kan je erachter komen of (Memo1->Text == "") wel ooit true oplevert. Misschien definiëert dat Text-veld geen overloaded == operator die een string accepteert?

[0123456]

Die Memo1->Text == "" werkt, het probleem is dan dat de delete niet werkt.

Ik heb ook gekeken of het mogelijk om de controle achteraf te doen, dus eerst de memo vullen en dan controleren op lege regels.

Iemand voor 1 van deze twee (of iets anders) een oplossing???

[Creepy]

Wat wil je nu precies bereiken? In je code haal je nu een regel weg uit de memo als je gehele memo geen tekst bevat. Dat lijkt me toch niet te kloppen. memo1->text is alle tekst van alle regels uit je memo. memo1->lines kan je als een array benaderen indien je losse regels op inhoud wilt checken.

Kijk eerst eens of dat wat je nu in je memo stopt, geen regeleindes bevatten. Als dat niet het geval is, voeg dan die tekst gewoon toe met lines->add(); Zo moet wel te voorkomen zijn dat je extra (lege) regels krijgt.

Als je dat echt niet kan voorkomen, loop dan nadat je memo is gevuld alle regels van de memo door en haal de lege regels er tussen uit.

[0123456]

Dat laatste is ook mijn bedoeling, maar hoe doe ik dat???

Ik heb al een tel functie, maar ik geloof dat die al niet goed werkt
Ik zie in ieder geval in de debug modus een Data:NULL staan, behalve bij de eerste waarde daar is het Data:""

code:

for (int k=0;k<=Memo1->Lines->Count;k++)
{
  AnsiString test1 = Memo1->Lines->Strings[k];
}

Hoe maak ik dit nu werkend??

[Belgar]

code:

Memo1->Lines->Assign(FileListBox1->Items)