Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Внизкрасиво разбить строку Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c