..
StBox1.Items[0].Text.SubString(1, 10)
..
Как узнать?
Понимаю совсем ламерский вопрос, но я уже все забыл, давно пишу на VB и забыл все про Делфи, немоглибы вы сказать как обозначается сивол например второй строки:
Listbox1.items.text[1] - это первый символ, а как узнать первый символ второй строки?
И еще один вопросик, как например обозначаесться несколько символов первой строки например от stbox1.items.text[1] до 10, или до бесконечности..
Заранее благодарю
Listbox1.items.text[1] - это первый символ, а как узнать первый символ второй строки?
И еще один вопросик, как например обозначаесться несколько символов первой строки например от stbox1.items.text[1] до 10, или до бесконечности..
Заранее благодарю
Первый символ первой строки: Listbox1.Items[0][1]
Второй символ первой строки: Listbox1.Items[0][2]
Первый символ второй строки: Listbox1.Items[1][1]
Второй символ второй строки: Listbox1.Items[1][2]
По второму уже тоже не помню(
Второй символ первой строки: Listbox1.Items[0][2]
Первый символ второй строки: Listbox1.Items[1][1]
Второй символ второй строки: Listbox1.Items[1][2]
По второму уже тоже не помню(
Как-то вот так наверно:
До бесконечности:D:
Код:
До бесконечности:D:
Код:
..
StBox1.Items[0].Text
..
StBox1.Items[0].Text
..
Огромное спасибо вам!
И всетаки как заменить так:
Например Listbox1 имеет следующие строки:
a = asa
b = betta
c = cetta
d = deta
Как сделать так что бы он высчитал только из А только asa
Listbox1.Items[0][1] - это у нас А, далее как обозначить asa?
И всетаки как заменить так:
Например Listbox1 имеет следующие строки:
a = asa
b = betta
c = cetta
d = deta
Как сделать так что бы он высчитал только из А только asa
Listbox1.Items[0][1] - это у нас А, далее как обозначить asa?
Цитата: SanAdlen
Огромное спасибо вам!
И всетаки как заменить так:
Например Listbox1 имеет следующие строки:
a = asa
b = betta
c = cetta
d = deta
Как сделать так что бы он высчитал только из А только asa
Listbox1.Items[0][1] - это у нас А, далее как обозначить asa?
И всетаки как заменить так:
Например Listbox1 имеет следующие строки:
a = asa
b = betta
c = cetta
d = deta
Как сделать так что бы он высчитал только из А только asa
Listbox1.Items[0][1] - это у нас А, далее как обозначить asa?
Предлагаю такой не хитрый способ:
Код:
var rez,subs,alls:string;
begin
subs:='asa';
alls:=Listbox1.Items[0];
rez:=copy(alls,pos(subs,alls),length(subs));
end;
begin
subs:='asa';
alls:=Listbox1.Items[0];
rez:=copy(alls,pos(subs,alls),length(subs));
end;
Специально ввел дополнительные переменные, чтобы блок стал более универсальным...:cool:
Good Luck!!!
Призрак, ты непонел, функция недолжна видеть буквы, а у тебя варс являеться "asa" а нужно что-бы он определял эту ассу по нахождениею что это от 5 того до 7мого символа...
Цитата: SanAdlen
Призрак, ты непонел, функция недолжна видеть буквы, а у тебя варс являеться "asa" а нужно что-бы он определял эту ассу по нахождениею что это от 5 того до 7мого символа...
Код:
var resultSTR: string;
begin
resultSTR:=ListBox1.Items.Values['A'];
end;
begin
resultSTR:=ListBox1.Items.Values['A'];
end;
или
Код:
var resultSTR: string;
begin
resultSTR:=ListBox1.Items.Values[ListBox1.Items.Names[1]];
end;
begin
resultSTR:=ListBox1.Items.Values[ListBox1.Items.Names[1]];
end;
Это уж как тебе удобно.)
Цитата: SanAdlen
Призрак, ты непонел, функция недолжна видеть буквы, а у тебя варс являеться "asa" а нужно что-бы он определял эту ассу по нахождениею что это от 5 того до 7мого символа...
Как скажешь..., вот изменил...
Код:
procedure TForm1.Button1Click(Sender: TObject);
var rez,alls:string;
begin
alls:=Listbox1.Items[0];
rez:=copy(alls,5,length(alls)-5+1);
end;
var rez,alls:string;
begin
alls:=Listbox1.Items[0];
rez:=copy(alls,5,length(alls)-5+1);
end;
:cool:
Спасибо всем!
Но то что я хотел заработало только способом призрака!
Спасибо...
Но то что я хотел заработало только способом призрака!
Спасибо...