zu wenig Arbeitssp. oder AV bei Stringverarbeitung?

[Bastler]

Also...

Ich habe mir folgende Funktion geschrieben:

Delphi-Quellcode:

function betonen(vers:string):string;
var z:integer;
    buffer:string;
begin
buffer:=vers;
for z:=0 to length(vers)-1 do
  begin
  if vers[z] in ['a','e','i','o','u'] then
    begin
    buffer[z]:='*';
    end
  else
    begin
    buffer[z]:='_'; //wobei hier schon alles andere stand als n Unterstrich - Leerzeichen, n normaler Buchstabe....
    e;
  end;
result:=buffer;
end;

gibt mir Aber ne AV wieder... :? weiß leider nicht so ganz warum :gruebel:
naja, habe ich dann etwas umgeschrieben:

Delphi-Quellcode:

function betonen(vers:string):string;
var z,u:integer;
    buffer:string;

begin
buffer:=vers;
for z:=0 to length(vers)-1 do
  begin
  buffer[z]:='_';
  if vers[z] in ['a','e','i','o','u'] then
    begin
    buffer[z]:='*';
    end
  end;
result:=buffer;
end;

wieder ne AV
dann habe ich folgendes probiert:

Delphi-Quellcode:

function betonen(vers:string):string;
var z,u:integer;
    buffer:string;

begin
buffer:=vers;

for u:=0 to length(vers)-1 do
  begin
  buffer[u]:='_';
  end;

for z:=0 to length(vers)-1 do
  begin
  if vers[z] in ['a','e','i','o','u'] then
    begin
    buffer[z]:='*';
    end
  end;
result:=buffer;
end;

Sagte mir der Compiler aber: Zu wenig Arbeitsspeicher...
---
Das Problem muss irgednwo an dem Result liegen...
Hab auch shcon Probiert, dem Funktionsnamen das zuzuweisen (so zeigte es uns unser lehrer, finde ich aber nicht so schön...)
Ich denke, was ich vorhabe, ist eindeutig, warum es ist geht würde mich interessieren...

Bin Euch für sämtliche Tipps dankbar :thumb:

P.S. Habe auch schon probiert buffer global zu deklarieren, ändert aber nichts...

<EDIT> Ich glaube die Lösung ist recht trivial, nur scheine ich grade in kleines Blackout zu haben :wall: </EDIT>

[Dax]

String-Indizes beginnen bei 1, nicht bei 0 - wie kannst du das kompilieren?

[Nuclear-Ping]

... und sie gehen auch bis Length und nicht bis Length - 1

[Dax]

Zitat:

Zitat von Nuclear-Ping

... und sie gehen auch bis Length und nicht bis Length - 1

Alles andere wär ja auch Blödsinn, wären sie bei 1-basierter indizierung dann ja Length-1 Zeichen lang ;)

[Nuclear-Ping]

Yo, ich wollte nur mal klugscheissen :warn: :mrgreen:

[himitsu]

also ich hatte keine Exception (war aber bestimmt nur Zufall X'D)
Compiliren läßt es sich schon, denn dabei weiß Delphi ja noch nicht auf welche Char-Indizes zugegriffen wird und wenn (was oftmals der Fall ist) auch noch keine Bereichsprüfung (vom Programmierer oder durch den Compiler) durchgeführt wird, dann wird einfach in die gewünschte Stelle geschrieben.

PS: wenn man den internen Aufbau des AnsiStrings sich mal genauer ansieht, dann ist am Index 0 (den es ja eigentlich nicht gibt) zufällig das höchstwertigste Byte der Stringlängenangabe welche einen Integer darstellt.
nach 'ner Zuweisung ergäbe es dann z.B. StrLen := (StrLen and $00ffffff) or (Ord('_') shl 24)
tja und danach hat man dann ja einen rießigen (defekten) String, der bei weiterer Verarbeitung (wofür z.B. 'ne erneute Speicherzuweisung nötig ist) mindestens ebensoviel Speicher wie in StrLen anfordern können wollte, was den fehlenden Arbeitsspeicher (die zugehörige Exception) erklärt. :angel:

schon witzig was solch winzige Fehler (wie 'nen falscher Index) für rießige Auswirkungen haben können :stupid:

Delphi-Quellcode:

function betonen(vers:string):string;
var z:integer;
begin
result:=vers;
for z:=1 to length(vers) do
  begin
  if vers[z] in ['a','e','i','o','u'] then
    begin
    result[z]:='*';
    end
  else
    begin
    result[z]:='_';
    end;
  end;
end;

oder in kurz:
- mit setzen von Result wird ja die Funktion nicht verlassen (wie in anderen Sprachen), weshalb man da auch "mehrmals" drauf zugreifen kann

Delphi-Quellcode:

function betonen(vers:string):string;
var z:integer;
begin
  SetLength(Result, Length(vers);
  for z:=1 to length(vers) do
    if vers[z] in ['a','e','i','o','u'] then
      Result[z]:='*';
    else
      Result[z]:='_';
end;

und genau, laß dir nüschts einreden, denn mit Result statt Funktionname sieht man wesendlich besser daß das ergebnis und kein rekursiver Funktionsaufruf gemeint ist :angel:

[Bastler]

ich sagte ja ...

Zitat:

Zitat von Bastler

<EDIT> Ich glaube die Lösung ist recht trivial, nur scheine ich grade in kleines Blackout zu haben :wall: </EDIT>

Obwohl himitsu, du hast mich glaub ich etwas falsch verstanden...

Naja, danke Euch allen :thumb: :thumb: :thumb:

P.S: Dass wenn er bei 1 anfängt auch bis length geht ist ja dann irgednwie logsich...

[Nuclear-Ping]

... irgendwie logisch schon ... aber nicht garantiert. ;)

[himitsu]

Zitat:

Zitat von Bastler

Dass wenn er bei 1 anfängt auch bis length geht ist ja dann irgednwie logsich...

logisch schon, aber nicht jeder kommt dann auch darauf :stupid:

Zitat:

Zitat von Bastler

Obwohl himitsu, du hast mich glaub ich etwas falsch verstanden...

wieso?
du hast einfach nur in einen falschen Speicherbereich geschrieben
und die "Spätfolgen" davon waren dann z.B. deine Exception.

Es ist halt immer gefährlich wenn man an falschen stellen rumschreibt, egal wo.

Der Delphi-String ist praktisch intern so aufgebaut

Delphi-Quellcode:

TAnsiStringInfo = packed Record
  RefCount:     LongInt;  // Refferenzzählung
  ElementCount: LongInt;  // Stringlänge
  Data:         packed Array[1..Self.ElementCount] of AnsiChar;
End;

buffer[i] = TAnsiStringInfo(buffer).Data[i] = @TAnsiStringInfo(buffer).Data + (i - 1)
tja und somit kann kann man überall rumschreiben und wichtige Daten zerstören