Witam
Szukam od dość długo jak ustawić szerokość kolumn do tekstu. Program pobiera tekst z pliku i chce by dostosowywały się do najdłuższego wiersza.
procedure TForm1.Button2Click(Sender: TObject);
Const Dane:array[1..17] of String=('Reg No','Chassis No','Manufacturer','Model','Type',
'First Reg','Axle Config','GVWkgs','Road TAX','ADR Type','ADR','DOT','SLP','2Yr Tacho','6Yr Tacho',
'3Yr Pressure','6Yr Pressure');
var
Plik: TextFile;
Bufor: string;
PozS, PozE: integer;
i : integer;
Kolumna: integer;
Wiersz: integer;
begin
for i:=Low(Dane) to High(Dane) do
begin
sgTab.Cells[i,0]:=Dane[i]; // Naglowek wiersza
end;
with sgtab do
begin
AssignFile(Plik,'dane.luk');
Reset(Plik);
Wiersz:=1;
while not Eof(Plik) do
begin
ReadLn(Plik,Bufor);
if Wiersz>1 then
begin
PozS:=1;
Kolumna:=1;
while (PozS>0) and (PozS<Length(Bufor)) do
begin
PozE:=PosEx(',',Bufor,PozS+1);
if PozE=0 then
PozE:=Length(Bufor);
sgTab.Cells[Kolumna,Wiersz-1]:=Trim(MidStr(Bufor,PozS+1,PozE-PozS-1));
PozS:=PozE;
Kolumna:=Kolumna+1;
end;
end;
Wiersz:=Wiersz+1;
RowCount:=RowCount+1;
end;
CloseFile(Plik);
if button2.enabled then button2.enabled := false else button2.enabled := true ;
end;
end;
Jak w to wpisać ustawianie szerokości kolumn.
Z góry dzięki za pomoc