visualbasicde text
- Konbuyu başlatan çaylak36
- Başlangıç tarihi
Satırlar halinde düzenlenmiş, başka bir deyişle her satırın sonunda Enter tuşuna basılarak hazırlanmış text dosyasındaki satırları StringGrid'e aktrarmak için "Liste.txt" adında bir text dosya hazırlayıp "C:" sürücüsünün kök klasörüne kaydettim. Ardından yeni bir proje hazırlayıp forma “Oku” adında bir düğme ve bir String nesnesi yerleştirip aşağıda verdiğim kodu yazdım. StringGrid’in birisi Fixed olmak üzere 2 sütun bulunmakta ve satır sayısı 2’dir.
ALıntıdır
procedure TForm1.OkuClick(Sender: TObject);
Var
Str : String;
Satir : Integer;
Dosya : TextFile;
begin
AssignFile(Dosya, 'C:\Liste.txt');
Reset(Dosya);
Satir := 1;
While NOT EOF(Dosya) Do
begin
ReadLn(Dosya, Str);
StringGrid1.Cells[1, Satir] := Str;
Satir := Satir + 1;
StringGrid1.RowCount := Satir;
end;
CloseFile(Dosya);
end;
ALıntıdır
procedure TForm1.OkuClick(Sender: TObject);
Var
Str : String;
Satir : Integer;
Dosya : TextFile;
begin
AssignFile(Dosya, 'C:\Liste.txt');
Reset(Dosya);
Satir := 1;
While NOT EOF(Dosya) Do
begin
ReadLn(Dosya, Str);
StringGrid1.Cells[1, Satir] := Str;
Satir := Satir + 1;
StringGrid1.RowCount := Satir;
end;
CloseFile(Dosya);
end;
- Durum
