3.483 Punkte (?)[Gesperrt]
Anmeldungsdatum: 22.05.2008
Beiträge: 2.823
|
Hallo Mitglieder,
Ich brauche eine Funktion, die mir wort für Wort in eine Listbox einlist - aus einer TMemo. Ich bekomms nicht hin, will seit längerer Zeit mal wieder Delphi programmieren - nun ist es soweit, aber ich komm halt nicht weiter ;)
Also:
Wort für Wort soll ausgelesen werden - anschließendes einlesen in eine Listbox (Eine Zeile=Ein Wort).
---------------------------
Zusatz:
Gibbet nen Code, der beim Tmediaplayer oder wie der heißt? ! herauszufinden, ob ein Lied fertig gespielt wurde?
Mfg Kalle
Mein Ansatz:
Zitat:
procedure TForm1.Vorlesen1Click(Sender: TObject);
var Wort,s: String; i,j,Pos1,Pos2,Pos3:Integer;
begin
for i:= 0 to text.Lines.Count do
begin
s:=text.Lines[i];
Pos1 :=Pos(';', s);
if Pos1 <> 0 then
begin
Pos2 := PosEx(';', s, Pos1 + 1);
if Pos2 <> 0 then
Wort:= Copy(s, Pos1+1,Pos2-2 );
listbox1.Items.Add(Wort);
end;
end;
end;
end.
|
Themen
Unbeantwortet
Betriebssysteme
