Forum: Programmieren allgemein
Delphi
by p80286,
8. Jun 2011
Nicht nur bei Dir:
procedure TForm1.BtSpeichernClick(Sender: TObject);
var
Textdatei: textfile;
z:integer;
begin
if savedialog1.Execute=true then
begin
assignfile(Textdatei,savedialog1.FileName);
Forum: Programmieren allgemein
Delphi
by p80286,
8. Jun 2011
Ich denke da fehlt ein
Assignfile(Textdatei, savedialog1.FileName);
Rewrite(Textdatei);{--------------------------------------------------------!!!!}
for z := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
....................
CloseFile(Textdatei);
oder ein "Append" ?
Forum: Programmieren allgemein
Delphi
by p80286,
7. Jun 2011
Ich habwriteln(stringgrid.cells) gesehen,das+';' ist mir ganz durchgerutscht. Da stimmt wohl einiges nicht.
Gruß
K-H
Forum: Programmieren allgemein
Delphi
by p80286,
7. Jun 2011
Fehlt Dir vllt. der jeweils erste Name in einer Zeile? siehe #2
Gruß
K-H
edit:
etwa rows.text?