Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

грамматное решение [D7]

redlord © (2006-03-01 23:14:00)
всем привет
народ подскажите как лучше зделать следущее ?
имеется строка s:='field1'+chr(9)+field2'+chr(9)+field3'+chr(9)
нужно эту строка запихнуть в record f1:string; f2:string; f3:string;
как зделать ето через цикл в катором идет копирование до очередного
chr(9) я знаю.
может ето можно зделать както более грамотно и обойтис какойнить функцией delphi ?

redlord (2006-03-03 11:57:00) [1]
огромное спасибо ExtractStrings ето то что надо

begin...end (2006-03-02 22:07:00) [2]
> Desdechado © (02.03.06 19:34) [9]

Это был очень тонкий намёк...
:о)

Можно обойтись без кавычек, используя функцию Classes.ExtractStrings:

ExtractStrings([ #9], [], PChar(S), SL)

umbra (2006-03-02 19:53:00) [3]
[0] - просто коан какой-то

Desdechado (2006-03-02 19:34:00) [4]
begin...end © (02.03.06 18:42) [8]
я намекал на взятие в кавычки и установку QuoteChar

begin...end (2006-03-02 18:42:00) [5]
> Desdechado © (02.03.06 18:37) [7]

Будет. См. код TStrings.SetDelimitedText.

Desdechado (2006-03-02 18:37:00) [6]
TStringList + F1
"разделение по пробелу" - не будет

redlord (2006-03-02 18:11:00) [7]
если в переменной s встретится пробел то все что до пробела ляжет в sl[0]
а все что после в sl[1] хотя разделителем указан #9

Гаврила (2006-03-02 17:35:00) [8]

> Джо ©

Это я схематично ))

> тока как внем избавится от рассечению по пробелу ?

В каком смысле?

redlord (2006-03-02 17:33:00) [9]
tstringlist подойдет тока как внем избавится от рассечению по пробелу ?

Джо (2006-03-02 00:14:00) [10]
> [2] Гаврила © (01.03.06 23:18)
> var
> SL: TStringList;
> ..
> SL.Delimiter:=#9;
> SL.DelimitedText:=s;
> F1:=SL[0];
> F2:=SL[1];
> F3:=SL[2];
> ...

Без проверки SL.Count этот код чреват... Впрочем, для "грамматного"решения сойдет ;>

Гаврила (2006-03-01 23:18:00) [11]
var
SL: TStringList;
..
SL.Delimiter:=#9;
SL.DelimitedText:=s;
F1:=SL[0];
F2:=SL[1];
F3:=SL[2];
...

Marser (2006-03-01 23:15:00) [12]
Format

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »