Registriert seit: 31. Aug 2003
Ort: Woffelsbach / user.exe ;)
377 Beiträge
Delphi 7 Personal
|
Re: Der linken seite kann nichts zugewiesen werden
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;
...
|