Cześć,
Mam pytanie. Mianowicie, nie bardzo wiem, jak zapisać dane ze StringGrida do pliku txt tak, by komórki były oddzielone ';'.
Szukałem na forach, ale nie znalazłem niczego, co umiałbym odtworzyć.
Proszę o pomoc!
0
0
PROSIMY NA NAS NIE KRZYCZEĆ! Prosimy googlować zanim się zapyta na forum i na podstawie nawet szczątkowych informacji, próbowac coś napisac samemu. Nic nie trzeba odtwarzać. No chyba, że chodzi Tobie o metodę TBrain.Play
, która wykonuje kod samodzielnego myślenia. W ogóle to z czym miałeś konkretnie problem? Przecież wystarczą zwykłe pętle for
. Poniżej kod wypełniający StringGrid
i zapisujący do pliku po kliknięciu na przycisk.
procedure TForm1.FormCreate(Sender : TObject);
var
I, J : integer;
begin
for I := 0 to StringGrid1.ColCount - 1 do
begin
for J := 0 to StringGrid1.RowCount - 1 do
begin
StringGrid1.Cells[I, J] := Format('%d|%d', [I, J]);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
S : string;
I, J : integer;
SL : TStringList;
begin
SL := TStringList.Create;
for I := 0 to StringGrid1.ColCount - 1 do
begin
S := '';
for J := 0 to StringGrid1.RowCount - 1 do
begin
S := S + StringGrid1.Cells[I, J] + ';';
end;
SL.Add(S);
end;
SL.SaveToFile('D:\test.txt');
SL.Free;
end;
0
Wielkie dzięki. A jak zapisać, żeby format wyglądał:
SG1.Cells[0,0];SG1.Cells[1,0];SG1.Cells[2,0] (tzn. bez średnika kończącego linię)
???