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

красиво разбить строку   Найти похожие ветки 

← →
volph777   (2002-10-22 17:50) [0]

есть строка, нада ее разбить на токены разделенные пробелами, дайте красивый пример!

---

← →
Cossys ©   (2002-10-22 17:59) [1]

Главное, сначало выбрать шрифт типа Курьер.
Затем:
procedure TfrMain.Repaint();
var
tmp_acc, tmp, tmp_name : String;
i : Integer; // incriment
begin
try
CheckListBox1.Items.Clear;
With tblTable do
begin
First;
While not EOF do
begin
tmp_acc:=FieldByName("BAL_ACCOUN").AsString;
if Length(tmp_acc)<15 then
begin
while Length(tmp_acc) <> 15 do
tmp_acc:=tmp_acc+" "; // что бы все были одинаковой дл.
end;
tmp_name:=FieldByName("NAME_ACCOU").AsString;
if Length(tmp_name)>14 then
begin
tmp:="";
for i:=1 to 12 do
tmp:=tmp+tmp_name[i];
tmp_name:=tmp+"..";
end;
CheckListBox1.Items.Add(tmp_acc+FieldByName("VAL").AsString+" "+tmp_name);
Next;
end
end
except
...
end;
end;

Если я вас правильно понял

---

← →
volph777   (2002-10-22 18:05) [2]

ой как много, ну мне нада вот
есть строка
a := "1 2";

а в результате получить 1 и 2 в двух переменных

---

← →
Игорь Шевченко ©   (2002-10-22 18:08) [3]

В UBPFD в разделе Работа со строками есть функция StrBreakApart - вот она и делает то, что надо

---

← →
han_malign ©   (2002-10-22 18:09) [4]

StringList.CommaText:=1;
for i:=0 to StringList.Count-1 do StringList[i]...

---

← →
han_malign ©   (2002-10-22 18:09) [5]

в смысле :=a;//а не 1

---

← →
Znaika   (2002-10-22 19:43) [6]

str := "1 2 3 4";
with TStringList.Create do begin
Text := StringReplace(str, #32, #13#10, [rfReplaceAll]);
ShowMessage(Text);
Free;
end;

---

← →
Shrek ©   (2002-10-22 19:51) [7]

в Strings есть функция DecimalText или што вроде, она разбивает текст по пробелам

---

← →
roadster   (2002-10-23 06:47) [8]

Смотри недавнюю дискуссию про Машу, которая сильно болеет туберкулезом :0)))))))))))))

---

← →
DeadHDD   (2002-10-23 06:55) [9]


procedure divstrbyseparator(sep:char;var s1:string;var s2:string;s:string);
var i:integer;
begin
if s="" then exit;
i:=pos(sep,s);
if i<2 then exit;
s1:=s;
s2:=s;
setlength(s1,i-1);
delete(s2,1,i);
end;

Разберёшся?

---

← →
Sectey ©   (2002-10-23 09:29) [10]

Возми библиотеку QStrings там все писано на асме, работает как самолет быстро,там есть разбиение на токены, выделение конкретного слова в зависемости от его номера и т.д. и т.п. Если интересно могу намылить.

---

← →
Song ©   (2002-10-23 10:04) [11]

WrapText()

---

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

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



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