Forum: Programmieren allgemein
by Stormy,
16. Jul 2009
Hast du evl. ein end falsch gesetzt oder irgendwo ein Try stehen??
Versuch es mal so:
k := 10;
while k <= Length(head) do
begin
TabPos1 := posEx(#9,head,k);
if TabPos1 <> 0 then
begin
Forum: Programmieren allgemein
by Stormy,
16. Jul 2009
Mal so auf die SChnelle und ungetestet versuch es mal so:
j := 10;
repeat
TabPos1 := posEx(#9,head,j);
if TabPos1 <> 0 then
begin
TabPos2 := posEx('
Forum: Programmieren allgemein
by Stormy,
16. Jul 2009
Öhm wo ist das Problem?
Setze doch eine Variable die sobald dein String gefunden wurde auf 3 gesetzt wird und
am anfang der For-Schleife einen If-Block der das abfragt.
k := 10;
x := 0;
for j := k to Length(head) do
if x = 0 then
begin