Einzelnen Beitrag anzeigen

Benutzerbild von Trebxson
Trebxson

Registriert seit: 7. Apr 2011
18 Beiträge
 
Turbo Delphi für Win32
 
#11

AW: Mehrdimensionales, dynamisches Array speichern

  Alt 7. Apr 2011, 17:18
naja, ich machs mal etwas Pseudomäßig...

Code:
Array
 (
  Array ('e1', 'e2', 'e3'),
  Array ('f1', 'f2', 'f3')
 )
=> als CSV, getrennt durch TAB und Zeilenumbruch

Code:
e1   e2   e3
f1   f2   f3
Dies wäre die einfachste Variante.

Delphi-Quellcode:
filecontent := '';

for i := 0 to length (Array) - 1 do
 begin

  for j := 0 to length (Array[i]) - 1 do
   begin
    filecontent := filecontent + Array[i][j];

    if (j + 1 < length (Array[i])) then
     begin
      filecontent := filecontent + #9;
     end;
   end;

  if (i + 1 < length (Array)) then
   begin
    filecontent := filecontent + #13#10;
   end;
 end;

//WriteToFile... (filename, filecontent);
  Mit Zitat antworten Zitat