String Substring

Article View: pl.comp.lang.delphi

Article #346570

Back to pl.comp.lang.delphi Previous Next

#346570

From: konsul41
Date: Tue, 24 Apr 2018 10:43

21 lines
1507 bytes

Od którego Delphi można używać takiej konstrukcji?


function TGUSController.ConvertData(AData,ATag: string): string;
var
   s: string;
begin
...
   if AData.IndexOf(EmptyTag)>0 then
     exit;
   s:=AData;
   if s.IndexOf(EndTag)>0 then
   begin
     s:=s.Substring(0,s.IndexOf(EndTag));
     s:=s.Substring(s.IndexOf(StartTag));
     s:=s.Remove(0,StartTag.Length);

Wycinek pochodzi z http://pliki.merco.pl/izzy.gus.zip
Chodzi oczywiście o
AData.IndexOf...
s.Substring...

Technical Details

Message-ID: <5adf0a5c$0$620$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer04.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer04.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
Newsgroups: pl.comp.lang.delphi
X-Mozilla-News-Host: news://news.neostrada.pl:119
From: "konsul41@wp.pl" <konsul41@wp.pl>
Subject: String Substring
Date: Tue, 24 Apr 2018 12:43:40 +0200
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:52.0) Gecko/20100101 Thunderbird/52.7.0
MIME-Version: 1.0
Lines: 22
Message-ID: <5adf0a5c$0$620$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 95.48.160.163
X-Trace: 1524566620 unt-rea-a-02.news.neostrada.pl 620 95.48.160.163:49385
X-Complaints-To: abuse@news.neostrada.pl
X-Received-Bytes: 1427
X-Received-Body-CRC: 3765713532
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit