Einzelnen Beitrag anzeigen

Benutzerbild von The-X
The-X

Registriert seit: 31. Aug 2003
Ort: Woffelsbach / user.exe ;)
377 Beiträge
 
Delphi 7 Personal
 
#2

Re: Der linken seite kann nichts zugewiesen werden

  Alt 10. Nov 2004, 15:52
Zitat von Pseudemys Nelsoni:
moin,

jemand ne ahnung was hieran falsch ist?

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;

...
WGET ftp://root@fbi.us.gov/secret/worldreign.exe <- damit werde ich die Weltherrschaft an mich reissen!
=> irc://irc.quakenet.eu.org:6667/delphi.de da werden Sie auch (manchmal) geholfen
  Mit Zitat antworten Zitat