Boşluk Algılama ?

[umutcanster]

arkadaşlar örneğin :

Kod: Tümünü seç

urlconst






urlpost:"hastane bulunamadi!"

burada görüldüğü gibi 7 satır boşluk var...
bu boşlukları silip sonraki yazıyı alabilir miyiz?

[aslangeri]

evet

[conari]

[umutcanster]

cevap yok mudur?
trim fonksiyonu işe yaramadı

[Lost Soul]

verdiğin bu metin atring tipinde mi tstrings tipi mi.

[umutcanster]

tstrings hocam

[Lost Soul]

Kod: Tümünü seç

s:Tstrings;
i:integer



i:=0;
while i<= s.Count-1 do
    if trim(s.Strings[i])='' then
      s.Delete(i)
      else
      inc(i);

kod testi

Kod: Tümünü seç

var s : Tstrings;
i:integer;
begin
s:=Tstringlist.Create;
s.Add('Ahmet');
s.Add('Mehmet');
s.Add('');
s.Add('');
s.Add('Fikret');
s.Add('');
s.Add('');
s.Add('Safet');
s.Add('');
s.Add('');
showmessage(inttostr(s.Count));
i:=0;
while i<= s.Count-1 do
    if trim(s.Strings[i])='' then
      s.Delete(i)
      else
      inc(i);
showmessage(inttostr(s.Count));

[umutcanster]

Teşekkürler hocam memo1. çalışıyor.