грамматное решение

← →
redlord (2006-03-01 23:14) [0]

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

← →
Marser © (2006-03-01 23:15) [1]

Format

← →
Гаврила © (2006-03-01 23:18) [2]

var
SL: TStringList;
..
SL.Delimiter:=#9;
SL.DelimitedText:=s;
F1:=SL[0];
F2:=SL[1];
F3:=SL[2];
...

← →
Джо © (2006-03-02 00:14) [3]

> [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 этот код чреват... Впрочем, для "грамматного" решения сойдет ;>

← →
redlord (2006-03-02 17:33) [4]

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

← →
Гаврила © (2006-03-02 17:35) [5]

> Джо ©

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

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

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

← →
redlord (2006-03-02 18:11) [6]

если в переменной s встретится пробел то все что до пробела ляжет в sl[0]
а все что после в sl[1] хотя разделителем указан #9

← →
Desdechado © (2006-03-02 18:37) [7]

TStringList + F1
"разделение по пробелу" - не будет

← →
begin...end © (2006-03-02 18:42) [8]

> Desdechado © (02.03.06 18:37) [7]

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

[0] - просто коан какой-то

> Desdechado © (02.03.06 19:34) [9]

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

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

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

← →
redlord (2006-03-03 11:57) [12]

огромное спасибо ExtractStrings ето то что надо

грамматное решение Найти похожие ветки