[Delphi] Bufor, ListBox i problem z tym...

0

Witam

Mam takie cos w OnTimer:

[code]
<font color="darkblue">
var
buff:Array[0..1096] of Char;
begin
AData.Read(buff,SizeOf(buff));
ListBox1.Items.Add(String(buff));
buff:='';
end;</span>
[/code]

I jak zrobic, ze jssli buff=jakis items z ListBox1, to zeby buff:='';, a jesli nie, to zeby dodalo do ListBox1 itemsa, który ma zawierac buff??????????????

0

dalsza czesc pytania, bo tamtą ucielo... ;(

I jak zrobic, ze jssli buff=jakis items z ListBox1, to zeby buff:='';, a jesli nie, to zeby dodalo do ListBox1 itemsa, który ma zawierac buff??????????????

0

Przede wszystkim zanim piszesz w nowym poście możesz zmodyfikować stary. Ikonka z ołówkiem i kartką po prawej stronie postu.

Przykro mi ale troche nie jasne dla mnie to jest spróbuj napisać to inaczej.

Dobrze by było gdybyś podał także typ AData bo nie jestem w stanie wywnioskować co to jest. Podejrzewam że jest to jakiś typ interfejsu (prawdzopodobnie IDataBlock).

0

Cze.
Faktycznie, tez nie za bardzo wiem o co chodzi z tym AData, ale wiem o co Ci chodzi ogolnie:), dlatego postanowilem napisac Ci przyklad:).
Pacnij na forme jakis ListBox (Name: ListBox1) i obok buttona (Button1) i dla OnClick buttona:

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
Tekst : String;
Dodaj : Boolean;

begin
Dodaj := True;
Tekst := 'To jest jakis tam tekst';
for I := 0 to ListBox1.Items.Count-1 do
if Tekst = ListBox1.Items.Strings[I] then
Dodaj := False;
if Dodaj = True then ListBox1.Items.Add(Tekst)
end;

Pokombinuj troche z tym a na pewno zrozumiesz o co chodzi.
Pomodyfikuj troche i daj do aplikacji:)

PS. Prawie sie rymuje:D.

1 użytkowników online, w tym zalogowanych: 0, gości: 1