16 Pytanie Ognia

0

To ja znowu osadnik

Fajne to FORUM

Pytania

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

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

0

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

0

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0