красиво разбить строку

← →
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;
Разберёшся?

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

WrapText()

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