also nun ist er weiter gehumpelt aber meldet jetzt sofort den fehler: [Error] Datenfenster.pas(145): E2250 There is no overloaded version of 'FileWrite' that can be called with these arguments
zeile 5,7,14,15,
desweiteren in zeile 15 den fehler: [Error] Datenfenster.pas(147): E2066 Missing operator or semicolon
und in zeile 19 [Error] Datenfenster.pas(150): E2010 Incompatible types: 'FileStream' and 'Integer'
Delphi-Quellcode:
1
raise Exception.Create('
Unfähig eine Aushilfsdatei zu erschaffen.');
2
end;
3 FileHandle := FileCreate(SaveDialog1.FileName);
4 FileWrite(FileHandle,
5 Sg.ColCount, SizeOf(Sg.ColCount));
6 FileWrite(FileHandle,
7 Sg.RowCount, SizeOf(SG.RowCount));
8
for X := 0
to SG.ColCount - 1
do
9
begin
10
11
for Y := 0
to SG.RowCount - 1
do
12
begin
13 StringLen := Length(SG.Cells[X,Y]);
14 FileWrite(FileHandle, StringLen, SizeOf(StringLen));
15 FileWrite(FileHandle,
16 SG.Cells[X,Y], stringlen(SG.Cells[X,Y]));
17
end;
18
end;
19 FileClose(FileHandle);