Einzelnen Beitrag anzeigen

Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.130 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Array of Char in String umwandeln

  Alt 1. Nov 2013, 13:29
OK

Nimm einfach einen Shortstring.

oder sowas

Delphi-Quellcode:
{$A1}
  MyRec = Record
            KeineAhungwashiersteht : Array [1..10] of Byte;
            Name : String[12];
            KeineAhungwashiersteht2 : Array [1..112] of Byte;
          end;

Var
  I : Integer;
  F : File;
  R : myRec;
begin
  assignfile(F,'Daten.dat');
  reset(F,1);
  try
    while not(eof(f)) do
      begin
        Blockread(F,R,Sizeof(R),gelesen);
        if gelesen = Sizeof(R) then
         begin
           R.Name[0]:= #12; // Falls kein Längenbyte oder nach einer Endmarke suchen whatever!
           Memo1.Lines.Add(R.Name);
         end;
      end;
  finally
    Closefile;
  end;
end;
So einfach...

Mavarik
  Mit Zitat antworten Zitat