moin,

jemand ne ahnung was hieran falsch ist?

zusammenfalten · markieren

Delphi-Quellcode:

...

  TChannel = record
    name: string;
    topic: string;
  end;
  TChannels = array[0..4] of TChannel;

var
  Channels: TChannels;

...

function ChannelByName(channel: string): TChannel;
var
  i: integer;
begin
  for i := low(channels) to high(channels) do
    if channels[i].name = channel then
      result := channels[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Channels[0].name := '#test';
  ChannelByName('#test').topic := 'hi'; // hier der fehler
  showmessage(ChannelByName('#test').topic);
end;

...

Zitat von Pseudemys Nelsoni:

moin,

jemand ne ahnung was hieran falsch ist?

zusammenfalten · markieren

Delphi-Quellcode:

...

  TChannel = record
    name: string;
    topic: string;
  end;
  TChannels = array[0..4] of TChannel;

var
  Channels: TChannels;

...

function ChannelByName(channel: string): TChannel;
var
  i: integer;
begin
  for i := low(channels) to high(channels) do
    if channels[i].name = channel then
      result := channels[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
Var Temp:TChannel;
begin
  Channels[0].name := '#test';
  Temp:=ChannelByName('#test'); // so sollte es gehen :)
  Temp.topic := 'hi';
  showmessage(ChannelByName('#test').topic);
end;

...

Ganz einfach:ChannelByName('#test').topic := 'hi'; liefert einen konstanten Record. Was du da tust, ist einer Funktion einen Wert zuweisen, und das geht logischerweise nicht.

@The-X: danke, mal checken

@DAX: ich muss doch irgendwie eine funktion mit einem rekord verknüpfen können oder? ich möchte nicht jedes mal in meinem code das ausführen was meine funktion da tut (also die schleife)

ich möchte das ERGEBNIS der funktion benutzen + .topic und ihm was zuweisen.... geht das denn gar nicht?

Zitat von The-X:

zusammenfalten · markieren

Delphi-Quellcode:

...

procedure TForm1.Button1Click(Sender: TObject);
Var Temp:TChannel;
begin
  Channels[0].name := '#test';
  Temp:=ChannelByName('#test'); // so sollte es gehen :)
  Temp.topic := 'hi';
  showmessage(ChannelByName('#test').topic);
end;

...

So gehts nicht. TChannel ist nämlich ein Record. Nach der Änderung muss der Original-Record im Array noch aktualisiert werden.

grüße, daniel

kann ich mit der funktion nicht irgendwie einen pointer auf den rekord im array zurückgeben?

Stimmt

Lass dir doch den Index im Array zurückgeben und arbeite damit weiter *tipp*

Hi Pseudemys Nelsoni,

Versuchs mal so:

zusammenfalten · markieren

Delphi-Quellcode:

...

  TChannel = record
    name: string;
    topic: string;
  end;
  TChannels = array[0..4] of TChannel;

var
  Channels: TChannels;

...

function ChannelIndexByName(channel: string): Integer;
var
  i: integer;
begin
  Result := -1;
  i := low(channels);
  while (i <= high(channels)) and (result = -1) do
  begin
    if channels[i].name = channel then
      result := i;
    Inc(i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Channels[0].name := '#test';
  Channels[ChannelIndexByName('#test')].topic := 'hi';
  showmessage(ChannelByName('#test').topic);
end;

...

Du musst die Funktion den Index zurückgeben lassen, nicht den Record.

Greetz
alcaeus

Hi,
gestatte mir die Frage, warum du kein Objekt verwendest, sprich die Möglichkeiten von Delphi ausnutzt (Stichwort OOP). Wenn du da mit Propertys etc. arbeitest, schaffst du das wesentlich angenehmer.

Chris