Function, Result als stringlist?

[sakura]

Zu Ende lesen

Zitat von OLLI_T:

Das Var kann aber auch recht nüttzlich sein. So kann die Funktion das Objekt bei Bedarf initialisieren.

Ich zitiere mich mal selbst:

Zitat von sakura:

Z.B. könnte, wenn SL als nil übergeben wird, diese erstellt werden, oder ähnliches. Sollte dieses in der Prozedur nicht geschehen, dann sollte das var auch weggelassen werden.

......

[choose]

Hallo Tom,

niemand ist (zum Glück) perfekt, versteht immer hunderprozentig jeden Code, hat immer die nötige Sorgfalt und das erforderliche Maß an Schlaf genossen... Kombiniert mit Termindruck ist es manchmal hilfreich, Regeln zu haben, deren Einhaltung nichts oder wenig kostet ("FN"+<Strg>+<J>), den zu wartenen Code "vertrauter" machen und die Qualität des Ergebnisses verbessern können.

[Tom]

Mal etwas Source: Lokal schreibt man es ja so:

Delphi-Quellcode:

... := ....Create;
try
  // mach was
finally
  ...free;
end;

Ich denke nicht, dass jemand auf die Idee kommen kann ausserhalb von Try/Finally auf das Object zuzugreifen.

[Luckie]

Weißt du wer deinen Code nachher in der Firma in die Finger bekommt? Und wenn zwischen dem Try und finally zwei Bildschirmseiten Code liegen, muss man das nicht unbedingt merken.

[Tom]

Zitat von Luckie:

Weißt du wer deinen Code nachher in der Firma in die Finger bekommt?

Unwahrscheinlich ...

Zitat:

Und wenn zwischen dem Try und finally zwei Bildschirmseiten Code liegen, muss man das nicht unbedingt merken.

Wer das nicht merkt, macht auch keine Sicherheitsabfrage auf Nil.

[Luckie]

Es soll aber leute geben, die in einer Firma arbeiten. Und weißt du wie ein anderer Programmierer denkt und programmiert?

[Pseudemys Nelsoni]

wieso funktioniert das:

Delphi-Quellcode:

bla(socket.ReceiveText, ':', sl);
ListBox1.Items.AddStrings(sl);

aber das nicht:

ListBox1.Items.AddStrings(bla(socket.ReceiveText, ':', sl));
?

ist es nicht möglich das in eine zeile zu bekommen?

[choose]

Zitat von silent:

[...]ListBox1.Items.AddStrings(bla(socket.ReceiveText, ':', sl)); [...]
ist es nicht möglich das in eine zeile zu bekommen?

Hallo silent,

das funktioniert nur, wenn bla einen Rückgabewert vom Typ TStrings hätte. Ich rate Dir aber davon ab, den Parameter sl nach Result "durchzuschleifen"...
Wenn bla in dieser Art programmiert ist

Delphi-Quellcode:

procedure bla(const AnInputString: string; const ADelimiter: string; AResult: TStrings);
begin
  Assert(Assigned(AResult));
  AResult.BeginUpdate;
  try
    //append substrings from AnInputString to AResult seperated by ADelimiter
  finally
    AResult.EndUpdate;
  end;
end;

dann könntest Du die Funktion direkt mit den Items der Listbox verwenden:
Bla(socket.ReceiveText, ':', ListBox1.Items);

[Pseudemys Nelsoni]

danke ^^