Jak zapisać komórki StringGrida do .txt?

0

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

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ę)
???

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