Video Oversigt

Hej Udviklere,

Jeg er i gang med at lave et lille program så jeg kan holde styr på mine videofilm.
Jeg har følgende spørgsmål:

Hvilken kode skal man bruge hvis man vil indsætte tekst fra flere Editkomponenter i samme linje i en Memo ?

Hvordan får jeg en Memo til at skrive teksten i alfabetiskrækkefølge ?

Hvordan laver jeg en søge funktion til at søge efter en film i min Memo ?


På forhånd tak

Martin

1. Memo.Seltext := edit1.text;
3. brug Search dialog

Hej Martin,

For at indsætte en ny linie, med indhold fra flere editoboxe, kan du bruge:
Memo1.Lines.Add(Edit1.text + ' ' + Edit2.text + ' ' + edit3.text);

For at søge efter ord, kan du enten bruge en search dialog, eller du kan lave din egen søge funktion, med pos('ord der skal findes', memo1.text);

Pos funktionen giver dig posistionen af ordet.
Ex:
Memo1 :

Foo
Bar

pos('Bar', Memo1.text);
Vil retunere værdien 4, da Bar starter på den 4 character.

Med venlig hilsen
Ken Christensen

Hej Udviklere,

Jeg er i gang med at lave et lille program så jeg kan holde styr på mine videofilm.
Jeg har følgende spørgsmål:

Hvilken kode skal man bruge hvis man vil indsætte tekst fra flere Editkomponenter i samme linje i en Memo ?

Hvordan får jeg en Memo til at skrive teksten i alfabetiskrækkefølge ?

Hvordan laver jeg en søge funktion til at søge efter en film i min Memo ?


På forhånd tak

Martin

1) <pre>Memo1.Lines.Add(Edit1.Text + Edit2.Text + Edit3.Text);</pre>

2) <pre>procedure TForm1.ButtonSorterClick(Sender: TObject);
var
SortList: TStringList;
begin
SortList := TStringList.Create;
try
SortList.Assign(Memo1.Lines);
SortList.Sort;
Memo1.Lines.Assign(SortList);
finally
SortList.Free;
end;
end;</pre>

3) <pre>procedure TForm1.ButtonSoegClick(Sender: TObject);
var X: integer;
begin
X := PosEx(EditSoeg.Text, Memo1.Text);
if X <> 0 then
begin
Memo1.SetFocus;
Memo1.SelStart := X - 1;
Memo1.SelLength := length(EditSoeg.Text);
end;
end;</pre>

Emil Melgaard
emil.melgaard@fyrrevang.dk
- Admin på gruppen Delphi spilprogrammering.
http://www.delphispilprogram.udvikleren.dk

Tak for dit svar Ken,

Men men, jeg ville gerne lave det således: at jeg har en button og en editkomponent, hvor jeg så skriver mit søgeord i edit trykker på button og det søgte ord bliver markeret i memo'et.

Mvh

Marcel