Jak pobrac jedna linie z obiektu TMemo? Czy to jest w ogóle mozliwe?
--::. Yeti
::. [email protected]
::. http://yax.n3.net
Zrob form z Memo1, Edit1, Edit2, Button1, Button2 i ponizszym kodem.
Jak wpiszesz liczbe do Edit2 i nacisniesz Enter albo Button1 to zadana (przez ta liczba) linia z Memo wskoczy do Edit1.
Jak do edit2 wpiszesz nieliczbe, to sie zwali.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (StrToInt(Edit2.Text))<=(Memo1.Lines.Count) then
Edit1.Text:=Memo1.Lines[Pred(StrToInt(Edit2.Text))];
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
Key:=#0;
Button1.Click;
end;
end;
end.
--Pawel
Delphi6
Ej wez z tym kodem
wystarczy dac takie cos
a oznacza linijkę!!!!!!!!!
var
a : integer;
begin
edit1.text := memo1.lines[a];
end;
Ten kod w ogóle aaaaaa
Ten Niezarejestrowany to ja :) nie wiedzialem, że już to jest
juz sobie poradzilem ale wielkie thx za pomoc.. mam jeszcze jedno pytanko (chyba ostatnie..) jak policzyc ile w tym TMemo jest linijek???--::. Yeti
::. [email protected]
::. http://yax.n3.net
No i widze, ze kod, nawet taki jaki jest, przydal sie. Czy raczej przydalby sie gdybys go, Yeti, dokladniej przeczytal:
Liczba linii w Memo jest w Memo.Lines.Count.
A co do 'a oznacza linijke!!!!!!' (w poscie ql-GORTHA) to jeszcze uscisle na potrzeby Yeti - w Count jest liczba linijek, ale odwolujac sie do nich trzeba wiedziec ze sa numerowane od zera. Czyli ostatnia linijka ma numer Pred(Memo1.Lines.Count).
ql-GORTH: masz racje ze bylem nadmiarowy. Z drugiej jednak strony wyczulem w Yeti nowicjusza bardziej zielonego nawet niz ja sam :-). Wiec mysle ze sie mu moze przydac. A jak przeciazymy serwer to Adam nam powie. Chetnie uslysze Twoja opinie na ten temat.
Jesli masz uwagi co do kodu, to chetnie je zobacze - jestem nowicjuszem chetnym do nauki.
Pozdrowionka.--Pawel
Delphi6
thx wielkie chlopcy!!! ;-]]]
pq, chcesz moj progs, ktory zrobilem czesciowo dzieki tobie?? :PPP--::. Yeti
::. [email protected]
::. http://yax.n3.net
Mysle ze go sobie sciagne z http://yax.n3.net kiedy tam bedzie cos poza 'Enter here' :-)--Pawel
Delphi6
no wlasciwie to tak.. ale stronke jeszcze troche porobie zanim skoncze..
poprawie jeszcze bledy w programie i moge ci wyslac--::. Yeti
::. [email protected]
::. http://yax.n3.net
Dawaj na [email protected] (o ile <=5MB :-) ). W wolnej chwili oblukam.--Pawel
Delphi6
Osz ja nie moge!!!!!!!!!! jeszcze jeden blad := memo1.lines.count - 1; !!!!!!!!!!!!!!!!!
tak to ma być
bo jeżeli bedzie bez - 1 to zawsze bedzie pokazywalo o 1 linijke za dużo, którą delphi same sobie tworzy.
Ej sorry ale pierw nie przeczytałem i Od razu napisałem count - 1 :))
EE tak szczerze to wiesz dobry kod - tylko aby działał!! to się liczy :P
hehe
I jeżeli cię uraziłem to sorry.
Bynajmniej nie uraziles :-)). Lubie uwagi do tego co robie - wole sie uczyc na uwagach madrych ludzi niz na swoich bledach. Mysle ze temu ma m.in. sluzyc to forum.
Czolem--Pawel
Delphi6
jak zobaczylem ze delphi zaczyna liczenie od zera to od razu wiedzialem ze trza -1...
ale dzieki wam wszystkim ludzie!--::. Yeti
::. [email protected]
::. http://yax.n3.net
Wiesz co powiem ci nabijasz się ze mnie :)) lubię uwagi mądrych ludzi, ej no przestań!!!!!!!!!!!!!!!!
To bylo na serio.--Pawel
Delphi6