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]
String ile ilgili sorun var?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
String ile ilgili sorun var?
Onun tek dostu Allah
-
- Kıdemli Üye
- Mesajlar: 1223
- Kayıt: 26 Nis 2005 04:08
Bir deneme
Aşağıdaki kodu denemedim.Ama sanırım çalışır.
kullanımı
s:=degeral(memo1.lines.text);
Kolay gelsin.
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;
s:=degeral(memo1.lines.text);
Kolay gelsin.
