DGL • Thema anzeigen - StringList Problem

StringList Problem

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

FrenK

Betreff des Beitrags: StringList Problem

Verfasst: Mo Dez 03, 2007 15:19

DGL Member

Registriert: Mi Jan 31, 2007 18:32
Beiträge: 150
Programmiersprache: Pascal

als ich benutze in meinem Programm eine StringList um Texturnamen zu speichern wenn ich jedoch die add procedure aufrufe und eine Variable übergebe speichert er siese nur als pointer auf die Variable mein problem ist nun das ich die namen aus einer Datei lese bzw einem Stream sich die Variable also ändert...wenn ich dann die indexOff function benutze tritt ein exception auf....

Frage stimmt das mit den pointer hat sich mir z mindestens so erschlossen
Wenn ja was kann ich da machen....

mfg FrenK

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mo Dez 03, 2007 15:58

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Habe das Thema mal ins Allgemeine verschoben.

Also eigentlich speichert eine TStringList die Strings ab und nicht nur die Pointer. Evtl hast du es geschafft da intern irgendetwas auszutricksen. Poste mal bitte den Code an dem du den String lädst und an dem du ihn hinzufügst. Und was halt so wichtig ist.

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Mo Dez 03, 2007 23:48

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

Man kann an eine Stringliste ja noch Objekte hängen, nur weiss ich nicht genau worauf die Frage hinaus will.

_________________
Steppity,✲steppity,✴step,❆step,✳step! :twisted:

❆ ❄ ❄ ❄ ❅ ❄ ❆ ❄ ❅ ❄ ❅ ❄ ❅ ❄ ❄
❅ ☃ ❄ ❄ ❄ ❅ ❄ ❄ ❄ ❅ ❄ ☃ ❄ ❆ ❄ ❄

Nach oben

FrenK

Betreff des Beitrags:

Verfasst: Di Dez 04, 2007 15:03

DGL Member

Registriert: Mi Jan 31, 2007 18:32
Beiträge: 150
Programmiersprache: Pascal

Code:

 
procedure TTextureManager.AddTextureFromStream(AStream : TStream);
var StrSize : Longint;
    Str     : String;
Begin
  AStream.Read(StrSize,SizeOf(StrSize));
  SetLength(Str,StrSize);
  AStream.Read(Str, StrSize);
  TexNames.Add(Str);//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  SetLength(TexData, length(TexData)+1);
  TexData[high(TexData)] := TG3DETexture.Create;
  TexData[high(TexData)].LoadFromStream(AStream,TRILINIAR,LOD);
  BugTracker.Write('Texture : '+Str+' loaded');
End;
 

Das erst ma zum Code ich denke es ist ersichtlich um welche zeile es geht

Code:

 
function TStringList.Add(const S: string): Integer;
begin
  Result := AddObject(S, nil);
end;
 
function TStringList.AddObject(const S: string; AObject: TObject): Integer;
begin
  if not Sorted then
    Result := FCount
  else
    if Find(S, Result) then
      case Duplicates of
        dupIgnore: Exit;
        dupError: Error(@SDuplicateString, 0);
      end;
  InsertItem(Result, S, AObject);
end;
 
procedure TStringList.InsertItem(Index: Integer; const S: string; AObject: TObject);
begin
  Changing;
  if FCount = FCapacity then Grow;
  if Index < FCount then
    System.Move(FList^[Index], FList^[Index + 1],
      (FCount - Index) * SizeOf(TStringItem));
  with FList^[Index] do
  begin
    Pointer(FString) := nil;
    FObject := AObject;
    FString := S;
  end;
  Inc(FCount);
  Changed;
end;
 

Wen ich dann die indexOf dunction aufrufe erhalte ich eine exception

ich will wissen woran das liegen könnte bzw wie man das ändern könnte.....

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Dez 04, 2007 15:52

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Strings sind normal lediglich Pointer. Bei Stream.Read musst du aber einen Speicherbereich angeben in die gelesen wird. Durch das Var, in dem Paramater von Read, wird aber intern ein Pointer übergeben. Also hat die Read Methode nicht die Adresse von dem Buffer bekommen sondern die Adresse von der Variable Str.

Du musst also entsprechend den Anfang des Stringbuffers übergeben.

Code:

AStream.Read(Str[1], StrSize);

PS: Wenn die Strings größer als 4 Bytes sind dann wurde auch bereits in einen anderen Speicherbereich geschrieben. Was an späteren Stellen zu Fehlern führen kann. Du solltest also noch mal überprüfen ob du sonst noch wo strings ausließt.

PPS: Der String dürfte im Debugger aber schon falsch ausgesehen haben, da dessen Pointer überschriebe wurde.

Nach oben

FrenK

Betreff des Beitrags:

Verfasst: Mi Dez 05, 2007 11:58

DGL Member

Registriert: Mi Jan 31, 2007 18:32
Beiträge: 150
Programmiersprache: Pascal

Danke so ein simpler fehler...an anderen stellen im programm hab ichs auch noch richtig gemacht danke....

Nach oben

Seite 1 von 1

[ 6 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.