16 Pytanie Ognia

To ja znowu osadnik

Fajne to FORUM

Pytania

16. Co zrobić aby z textu w memo wyciągnąć pierwsze lub ostatnie 1000 znaków?

[email protected] 2 , 6 i 5
Ciekawe pomysły i poszukiwanie odpowiedzi.

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(Memo1.Text)&gt=1000 then
begin
Memo2.Text:=LeftStr(Memo1.Text,1000);
Memo3.Text:=RightStr(Memo1.Text,1000);
end;
end;

--Pawel

Delphi6

OSADNIK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! QRWA PODAJ E-MAIL!!!!!!!!!!!!!!!!!!!! BO NIE DOSTANIESZ TYCH WIESZ CZEGO :)