TMemo

[Gast_1]

Hallo Leute,

wie bekomme ich das hin, dass es mein TMemo-Feld:<br><br>
Hi Frank .......:<br>
: Hallo Laura:<br>
:Hi Gabi<br>
Hallo Leute:<br><br>

Jeweils die : am anfang löscht und nicht die : am Schluss der Wörter. <br><br>Danke<br>
<br>

void __fastcall TForm1::Button1Click(TObject *Sender)<br>
{<br><br>

String suchstr = Memo1->Lines->CommaText;<br>

Memo1->SelStart=suchstr.AnsiPos(":");<br>
int y=Memo1->CaretPos.y+1;<br>
for (y;y>=0;y--){Memo1->Lines->Delete(y);<br>
}
<br>
}<br>

[Christian Marquardt]

Hole dir hier

http://home.snafu.de/christian.marquardt/quickies.1/1_index.html#replace

die replace Funktion und suche in SUCHSTR nach ,: und ersetze mit ,

Das sollte wohl dein Problem lösen, da die : am Anfang stehen und der wird durch Kommata gekennzeichnet

[Gast_1]

void __fastcall TForm1::Button1Click(TObject *Sender)
<br>
{<br>

String muster=Memo1->Text;<br>

replace(muster,",:",",");<br>

Memo1->Text=muster;<br>

}<br><br>
Funkt. nicht

[Christian Marquardt]

Wie soll es auch

DU HAST JA JETZT ETWAS ANDERES PROGRAMMIERT ALS VORHER!!!!!

String suchstr = Memo1->Lines->CommaText;

und

String muster=Memo1->Text;

ist wohl etwas anderes!!!!

Vielleicht nimmst du auch CommaText!!!!

Christia

[Gast_1]

Hallo und Danke für deine Antwort. Es funktioniert immer noch nicht bzw. es ersetzt alle Doppelpunkte. Nicht die in der ersten Zeile

[Irmgard Sartor]

Hallo Maik!

Das hier müßte eigentlich funktionieren, das heißt wenn der Doppelpunkt immer gleich das erste Zeichen ist

String S;

for(int x=0;x<Memo1->Lines->Count;x++)<br>
{S=Memo1->Lines->Strings[x];<br>
if(S.SubString(1,1)==":")<br>
{S.Delete(1,1);<br>
Memo1->Lines->Strings[x]=S;<br>
}
}

Gruß Irmgar

[Gast_1]

Hallo Irmgard, vielen Dank für deine Präzise Antwort.<br><br>Hat funktioniert<br><br>Gruß Mai

[Christian Marquardt]

Hier der Code der funktioniert!

Auf Wunsch erhälst du gerne das komplette Projekt.
Er dürfte etwas schneller sein.

String eingabe=Memo1->Lines->CommaText;

replace(eingabe,",:",",");

Memo1->Lines->CommaText=eingabe