Hi
also, ich beschreibe was ich tun will:
Im Moment habe ich eine Funktion, welche 9 Felder in einem Datensatz prüft, und wenn ein Inhalt vorhanden ist, diese Inhalte zu einem String verknüpft, und diesen zurückgibt.
So siehts aus:
Delphi-Quellcode:
function TForm1.FindeBehandlungen():String; array
var i : Integer;
begin
Result := '';
for i := 150 to 182 do
begin
if ((i + 2) MOD 4) = 0 then // Modulo4: in jedem 4 Datensatz steht ein Artikelname
begin
if length(PDBBehandlung.Fields[i].AsString) > 0 then //wenn auch ein Artikel eingetragen ist
Result := Result + PDBBehandlung.Fields[i].AsString +',';
end;
end;
Result := copy(Result,0,length(Result)-1); //letztes ',' abschneiden
end;
Diesen String will ich nun drucken, es kann aber sein das er zu lang is, nämlich genau dann wenn er mehr als 4 Teilstrings enthält (wie gesagt, 9 können es werden).
Meine Lösung: Die Funktion gibt nicht einen Strink zurück, sondern ein array [0...8]of String, und wenn dann in pos 4 noch was steht, weiß ich das ich nen Zeilenumbruch basteln muß.
Nur wie mach ich das?