Thema: Delphi GTA Editor

Einzelnen Beitrag anzeigen

Illuminator-23-5
(Gast)

n/a Beiträge
 
#4

Careditor

  Alt 2. Jun 2003, 14:15
Du könntest dir eine Funktion programmieren, die dir die n-te spalte anzeigt.
Dazu könntest du so vorgehen:


Delphi-Quellcode:
function form1.element(n : integer; z : string;) : string;
var
  i, p, p2 : integer;
begin
  p := 1;
  for i := 1 to n - 1 do begin
    while z[p] <> ' do
      inc(p);
    while z[p] = ' do
      inc(p);
  end;
  p2 := p;
  while z[p2] <> ' do
    inc(p2);
  element := copy(z,p1,p2-p1);
end;
Es ist zwar ziemlich umständlich und unprofessionell, aber es ist eine Lösung
  Mit Zitat antworten Zitat