Delphi Forum

Kod: Tümünü seç

initialization
  {$I unit1.lrs}
  {$R unit1.Res}
end. 

Kod: Tümünü seç

str.Add('kulla='+edit1.text);
str.Add('sifre='+edti2.text);

Kod: Tümünü seç

msg:='';
k=1; 
while k < Length(value) do
     begin
         msg:= msg + chr(strtoint('$'+copy(value,k,2)));
         inc(k,2);
     end;
Comport1.writestr(msg);

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
 index:integer;
begin
    for index :=0 to ListBox1.Items.Count-1 do
         begin
             ShowMessage(ListBox1.Items[index]);
        end;
end;

Kod: Tümünü seç

richedit1.lines.add('deneme');

Kod: Tümünü seç

richedit1.lines.insert(2,'deneme');