Скачать: CL | DM;

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

← →
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.

---

← →
Desdechado ©   (2006-03-02 19:34) [9]

begin...end ©   (02.03.06 18:42) [8]
я намекал на взятие в кавычки и установку QuoteChar

---

← →
umbra ©   (2006-03-02 19:53) [10]

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

---

← →
begin...end ©   (2006-03-02 22:07) [11]

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

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

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c