String ile ilgili sorun var?

[delphiibo]

Arkadaşlar. hepinize kolay gelsin diyorum ve soruma başlıyorum.
ben string eklemek istiyorum.
mesala
memo1.lines.text:=

haberler
sezan
kılık
donuk
<
bbbb
bbb
bbb
bbb
bbbb
>
<
ddsdsd
dsdsd
dsdsAQQ
asd
>
door
open
add

...
...
...

Burada sadece "<" ile ">" arasındakiler memo2'ye eklenecek acaba nasıl bir kod yazacağım.Lütfen yardım edin.

[/list][/list]

[aLonE CoDeR]

Selamlar.
String parçalama fonksiyonlarını öğrenmeni salık vermek durumundayım.Parser tarzı işlemler için bunları mutlaka öğrenmelisin.

Kolay gele.

[selman]

selam
arama da pos veya copy felan yaz ara ve ordaki çıkan mesajları incele
string ifadeler nasıl parçalanmış ve ne şekilde harfler veya heceler çıkarırmış hem fikir olursun.Kolay gelsin

[kelaynak2]

Aşağıdaki kodu denemedim.Ama sanırım çalışır.

Kod: Tümünü seç

Function  TanaForm.Degeral(var aSource: string):String;
var
deger,tag,tagson:string;
n,baspos,sonpos:integer;
begin
tag:='<';
tagson:='>';
baspos:=pos(tag,aSource);
sonpos:=pos(tagson,asource);
if (baspos=0) or(sonpos=0) then begin
degeral:='';
exit;//taglar yok.
end;
 deger:='';
 for n:= baspos+length(tag) to sonpos-1 do
 begin
 deger:=deger+Asource[n];
 end;
degeral:=trim(deger);
end;

kullanımı
s:=degeral(memo1.lines.text);

Kolay gelsin.