Hallo Daniel,
Zitat von
danku:
wofür steht die demo.txt?
es ist nur ein Platzhalter - ich dachte du würdest selbst die noch nötigen Änderungen machen. Immerhin hast du Pascal als eines deiner Wissensgebiete angegeben.
Zitat von
danku:
außerdem funzt deine methode nicht
Es ist höchst unwahrscheinlich, aber was wäre, wenn du einen Fehler bei der Anwendung der Methode gemacht hättest?
Delphi-Quellcode:
uses
StrUtils;
function SaveColumn(sg: TStringGrid; index: Integer; keepHeader: Boolean = false): Boolean;
var
fn: TFileName;
begin
Result := false;
if sg.RowCount = 0 then
Exit;
with TStringList.Create do
try
Assign(sg.Cols[index]);
fn := IncludeTrailingPathDelimiter(GetCurrentDir)
+ Strings[0];
if not keepHeader then
Delete(index);
SaveToFile(fn);
Result := true;
finally
Free;
end;
end;
procedure TDemoForm.ButtonClick(Sender: TObject);
begin
ShowMessage(IfThen(SaveColumn(StringGrid, 0), 'holiday', 'kill the cat'));
end;
Freundliche Grüße vom marabu