also mein programm hab ich jetzt soweit das es funktioniert. jetzt muss ich nur noch die werte die ich eingebe in ein array umwandeln, da fehlt mir noch die verständniss für. so desweiteren habe ich auch das stringgrid fertig und die daten kommen auch darein.
http://www.a-web.de/notenprog.rar das ist das ganze programm eine
VCL anwendung für
Win32...
desweiteren sieht meine speicherfunktion für die tabelle so aus:
Delphi-Quellcode:
var
BackupName:
string;
FileHandle: Integer;
StringLen: Integer;
X: Integer;
Y: Integer;
begin
if SaveDialog1.Execute
then
begin
if FileExists(SaveDialog1.FileName)
then
begin
BackupName := ExtractFileName(SaveDialog1.FileName);
BackupName := ChangeFileExt(BackupName, '
.BAK');
if not RenameFile(SaveDialog1.FileName, BackupName)
then
raise Exception.Create('
Unfähig eine Aushilfsdatei zu erschaffen.');
end;
FileHandle := FileCreate(SaveDialog1.FileName);
FileWrite(FileHandle,
Sg.ColCount, SizeOf(Sg.ColCount));
FileWrite(FileHandle,
Sg.RowCount, SizeOf(SG.RowCount));
for X := 0
to SG.ColCount - 1
do
begin
for Y := 0
to SG.RowCount - 1
do
begin
StringLen := Length(SG.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle,
SG.Cells[X,Y], stringlen(SG.Cells[X,Y]));
end;
end;
FileClose(FileHandle);
end;
diese funktioniert aber nicht richtig und ich frag mich warum, er sagt auch immer das er savedialog1 nicht kennt...