Inserir Texto em Listbox
03/06/2008
0
Bertu
Posts
03/06/2008
Bertu
procedure TForm1.Button6Click(Sender: TObject); var i: integer; posini: integer; s: string; begin for i:=0 to ListBox2.Count-1 do begin s:=listBox2.Items.Strings[i]; posIni:=pos(´=´,s); listBox2.Items.Add(s+Edit1.Text); posIni:=pos(´=´,s); end; end;
So que tem 2 erros: Se eu ficar clicando no botao varias vezes ele vai adicionando o teste independente se existe ou nao o ´?´
o outro erro é que ele nao esta inserindo na frente do ´?´ ,está criando outra linha pq so consegui fazer usando o Items.Add :$
alguem me ajuda ?
03/06/2008
Rodc
var teste: Integer; teste := Pos(ListBox1.Items.Strings[0], ´?´); ListBox1.Items.Strings[0] := Insert(ListBox1.Items.Strings[0], ´teste´, teste);
03/06/2008
Bertu
[Error] Unit1.pas(104): Constant object cannot be passed as var parameter
04/06/2008
Rodc
procedure TForm1.Button6Click(Sender: TObject); var i: integer; posini: integer; s: string; begin for i:=0 to ListBox2.Count-1 do begin s:=listBox2.Items.Strings[i]; posIni:=pos(´?´,s); Insert(s, Edit1.Text, posIni-1); listBox2.Items.Strings[i] := s; end; end;
Não sei se no Delphi a função Insert() é assim. Se der erro consulte o help do Delphi.
04/06/2008
Rodc
Consultou o Help? Tente assim:
procedure TForm1.Button6Click(Sender: TObject);
var
i: integer;
posini: integer;
s: string;
begin
for i:=0 to ListBox2.Count-1 do
begin
s:=listBox2.Items.Strings[i];
posIni:=pos(´?´,s);
Insert(Edit1.Text, s, posIni-1);
listBox2.Items.Strings[i] := s;
end;
end;
04/06/2008
Bertu
se a linha tiver mais de dois ? sempre np primeiro
Clique aqui para fazer login e interagir na Comunidade :)