Registriert seit: 8. Nov 2006
1.360 Beiträge
Delphi 10.3 Rio
|
Re: Datei in Benutzung
2. Sep 2008, 18:36
Macht es eigentlich was aus, wenn die Datei in einem MemoryStream gespeichert wird
Delphi-Quellcode:
procedure TForm7.GridSpeichern;
var FileStream: TMemoryStream;
Grid :TFileName;
x, y, row, col,leng :Word;
st :string;
begin
Label3.Caption:= ComboBox1.Text;
begin
FileStream:= TMemoryStream.Create; //MemoryStream erzeugen
col:= StringGrid1.ColCount -1; //Ab Spalte 0
row:= StringGrid1.RowCount -1; //Ab Zeile 0
FileStream.Write(row, SizeOf(Word)); // Zeilen zum Schreiben öffnen
FileStream.Write(col, SizeOf(Word)); // Spalten zum schreiben öffnen
for x:= 0 to row do //Alle Spalten in die Variable übergeben
for y:= 0 to col do //Alle Zeilen in die Variable übergeben
begin
st:= StringGrid1.Cells[y,x];
leng:= length(st);
FileStream.Write(leng, SizeOf(Word));
FileStream.Write(st[1], leng);
end;
Grid:= ShellTreeView1.SelectedFolder.PathName+'\'+ ComboBox4.Text +'.pla';
FileStream.SaveToFile(Grid);
FileStream.Free;
end;
end;
Was meinst du mit Code des Zweiten
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...
Surft Ihr mit dem Taschenrechner?"
|