SRL Archive - Bugs

DTM Editor Error

Gold

2010-09-06 19:28:46

I was trying to make a DTM for a dropping function and for some reason my DTM editor wouldn't save or open dtm's, and if I closed and tried to open it again I got this error

What's wrong with my Simba?

Wizzup?

2010-09-07 02:08:05

Are you sure you're using the latest Simba + Extensions? (The ones in Simba Installer 0.91 are recent enough)

Gold

2010-09-07 02:31:19

I just manually re-installed Simba and my extensions I'll test it tomorrow.

Gold

2010-09-07 11:48:55

Well I didn't get the error after making one, but they still don't save, and I can't open ones I've made (I click open and nothing happens)

nielsie95

2010-09-07 12:19:48

That's because that's not implemented yet, extensions still needs wrappers for file handling I think.

Gold

2010-09-07 13:27:14

Oh, I can still use the editor then from what I see.

So case Solved ;)

Wizzup?

2010-09-09 14:04:10

Can you file a bug for the missing features though?

Gold

2010-09-10 00:12:37

From: Wizzup?
Can you file a bug for the missing features though?

Talking to me Or Nielse?

Wizzup?

2010-09-11 06:49:13

Either. :)

Wizzup?

2011-01-09 09:15:39

Niels, has this been fixed?

Dgby714

2011-01-09 09:45:19

From: Wizzup?
Niels, has this been fixed?

We don't have the file procedures normal script have but Niels can prob just use TFileStream.

TSaveDialog, tFileStream example.

program new;

function SaveDialog(Data: string): boolean;
var
  fmCustom: Word;
begin
  Result := False;
  fmCustom := fmCreate;
  try
    with TSaveDialog.Create(nil) do
    begin
      try
        Title := 'Save Dialog';
        Options := [ofOverwritePrompt];
        InitialDir := IncludePath + 'msi\';
        Filter := 'Text File (*.txt)|*.txt|All Files (*.*)|*.*';
        FilterIndex := 1;
        DefaultExt := 'txt';
        if (Execute) then
        begin
          if (FileExists(FileName)) then
            fmCustom := fmOpenWrite;

          with TFileStream.Create(FileName, fmCustom) do
          begin
            try
              if (Write(Data, SizeOf(Data)) > 0) then
              begin
                Result := True;
                WriteLn('Sucessfully saved: ' + FileName);
              end;
            finally
              Free;
            end;
          end;
        end;
      finally
        Free;
      end;
    end;
  except
    WriteLn(ExceptionToString(ExceptionType, ExceptionParam));
  end;
end;

procedure init;
begin
  SaveDialog('bleh?')
end;

begin
end.

Wizzup?

2011-02-10 17:13:47

AFAIK this is fixed in 0.96.